07. december 2001 - 23:53Der er
5 kommentarer og 1 løsning
Vad gør jeg galt?????
Hej med jer :-)
Jeg ved ikke om det er det rigtige forum men jeg prøver.
Jeg vil gerne lave et logon til mit counter strike da der er flere brugere på min pc og de glæmmer og skifte navn så jeg får skulden for meget jeg ikke har lavet på nettet.
her er så vad jeg har lavet for at stoppe det men den vil ikke rigtig: Function WriteBlankLinesToFile Const ForReading = 1, ForWriting = 2 dim input, f, fso Input = InputBox(\"HVAD HEDDER DU????\") MsgBox (\"BEKRÆFT: \" & Input) Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f = fso.opentextfile(\"E:\\SIERRA\\Half-Life\\cstrike\\config.cfg\",forwriting, True) f.writeBlanklines \"4\" f.WriteLine(\"Name\" &input ) set f = fso.opentextfile(\"E:\\SIERRA\\Half-Life\\cstrike\\config.cfg\", forreading) Writeblanklinestofile = f.readall end function
Hej her er en rutine som kan modtage et input og gemme det samt hente det gemte igen. Jeg ved ikke helt om det er det du vil opnå.
set fso=CreateObject(\"Scripting.FileSystemObject\") set f=fso.CreateTextFile(\"c:\\windows\\skrivebord\\test.txt\",true) if Err.Number <> 0 then wscript.echo \"testfil kunne ikke oprettes\" wscript.quit end if navn= InputBox(\"HVAD HEDDER DU????\") if navn=\"\" then wscript.quit end if MsgBox (\"BEKRÆFT: \" & Input) f.writeline navn set fsObject=Wscript.CreateObject (\"Scripting.FileSystemObject\") set listFile = fsObject.OpenTextFile (\"c:\\windows\\skrivebord\\test.txt\") do while listFile.AtEndOfStream <> True WScript.Echo listFile.ReadLine loop
Jeg har arbejdet lidt videre med dit problem. Her er et script, som ændrer brugernavnet i config.cfg til det navn som bruger har indtastet. set WshShell=Wscript.CreateObject (\"WScript.Shell\") DIM STI,PROG CONFIG=\"E:\\SIERRA\\Half-Life\\cstrike\\config.cfg\" PROG=\"E:\\SIERRA\\Half-Life\\cstrike\\config.cfg\\hl.exe -game cstrike\" navn= InputBox(\"HVAD HEDDER DU?\") if navn=\"\" then wscript.quit end if
Select Case WshShell.Popup(\"Er dit navn: \" + navn, 30, \"Bekræft\",vbyesno) case vbno WScript.Echo \"Login afsluttes\" wscript.quit
case vbyes dim temp(1000) dim y,x,tmp
x=0 set fsObject=Wscript.CreateObject (\"Scripting.FileSystemObject\") set listFile = fsObject.OpenTextFile (CONFIG) do while listFile.AtEndOfStream <> True x=x+1 \'wscript.echo listFile.ReadLine temp(x) = listFile.ReadLine if instr(temp(x),\"name\") <>0 then temp(x)= \"name \" + chr(34)+ navn + chr(34) end if loop
set fso=CreateObject(\"Scripting.FileSystemObject\") set f=fso.CreateTextFile(CONFIG,true) if Err.Number <> 0 then wscript.echo \"testfil kunne ikke oprettes\" wscript.quit end if for y = 1 to x f.writeline temp(y) next Set WshShell = WScript.CreateObject(\"WScript.Shell\") WshShell.Run PROG
Det mest sandsynlige er at du mangler denne linie, da fejlen i efter hvad du oplyser optræder i linie 9. Da objectet- der oprettes i linie et - først bruges i linie 10 i det script jeg har lavet tyder meget på at du mangler den første linie
Mange tak for hjælpen nu er alle glade igen specielt mig :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.