Avatar billede smackdaddy Nybegynder
07. december 2001 - 23:53 Der 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

plz help ved ikke vad det er jeg gør galt
Avatar billede ea_data Nybegynder
08. december 2001 - 15:55 #1
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

Avatar billede ea_data Nybegynder
10. december 2001 - 00:37 #2
Hej smackdaddy

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
   
End Select
Avatar billede smackdaddy Nybegynder
10. december 2001 - 01:09 #3
hej med dig igen jeg får en runtime error linje 9 tegn 1 et object err obligatorisk: \"Wshshell\"
den kan jeg ikke rigtig knække :-(
Avatar billede ea_data Nybegynder
10. december 2001 - 17:28 #4
Fejlen skyldes at du mangler første linie i scriptet eller at der er stavefejl. Den skal se ud på denne måde:

set WshShell=Wscript.CreateObject (\"WScript.Shell\")

Hvis du stadig har problemer må du vende tilbage
Avatar billede ea_data Nybegynder
10. december 2001 - 17:46 #5
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
Avatar billede smackdaddy Nybegynder
11. december 2001 - 11:16 #6
Mange tak for hjælpen nu er alle glade igen specielt mig :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi tilbyder markedets bedste kurser inden for webudvikling

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester