VBSCript fájl beolvasásai probléma

VBSCript fájl beolvasásai probléma
2013-07-22T14:59:39+02:00
2013-07-23T09:10:41+02:00
2022-11-29T10:41:58+01:00
remote44
Sziasztok!
Adott ez a scriptem:
Set objShell = CreateObject("Wscript.Shell") strPath = Wscript.ScriptFullName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPath) strFolder = objFSO.GetParentFolderName(objFile) strPath = "explorer.exe /e," & strFolder '========================================================================== ' ' NAME: AntiHack By ReMoTe ' VERSION: 1.1 ' AUTHOR: ReMoTe /=/ ThisIsMe ' DATE : 7/22/2012 ' '========================================================================== Set objFSO=CreateObject("Scripting.FileSystemObject") DIM fso Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(elerut & "\savedata.txt")) Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objDictionary = CreateObject("Scripting.Dictionary") Const ForReading = 1 Set objFile = objFSO.OpenTextFile (elerut & "\SaveData.txt", ForReading) i = 0 Do Until objFile.AtEndOfStream strNextLine = objFile.Readline If strNextLine <> "" Then objDictionary.Add i, strNextLine End If i = i + 1 Loop objFile.Close If (fso.FileExists(strLine &"\gta_sa.exe")) Then If (fso.FileExists(strLine &"\d3d9.dll")) Then MsgBox "Állíts le / törölj ki MINDEN hacket amit a GTA-hoz használsz, majd próbáld újra! ", 0+16, "GTA SA:MP Anti Hack by:ReMoTe" intAnswer = _ Msgbox("Szeretnéd eltávolítani a fertőzött fájlokat? Ha igennel válaszolsz,az összes hack törlődni fog a GTA-ból!", _ vbYesNo, "Fertőtleníted a GTA-d?") If intAnswer = vbYes Then Set obj = CreateObject("Scripting.FileSystemObject") obj.DeleteFile(elerut & "\d3d9.dll") Msgbox "A fertőzött fájlok sikeresen eltávolítva!",0+64, "GTA SA:MP Anti Hack by:ReMoTe" Else End If Set objFSO=CreateObject("Scripting.FileSystemObject") outFile= elerut & "\HackDetectorReport.dll" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write "Grand Theft Auto SA:MP " objFile.Write " Hack Detector by: ReMoTe/ThisIsMe" WshShell.SendKeys("{Enter}") objFile.Write "" objFile.Write "A HackKeresés sikeresen befejeződött,és egy összegző fájlt hozott létre!" WshShell.SendKeys("{Enter}") objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write " Eredmények:" objFile.Write "" objFile.Write "A gépre telepített GTA-ban hacket találtunk!" objFile.Write "" objFile.Write "Részletek:" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "S0BEIT HACK DETECTOR: d3d9.dll file is exist..." objFile.Write "CLEO MOD DETECTOR: Not founded cleo mods in GTA..." objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "" objFile.Write "" objFile.Write "" &vbCrLf objFile.Close WScript.Quit() Else outFile= elerut & "\HackDetectorReport.dll" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write "Grand Theft Auto SA:MP " objFile.Write " Hack Detector by: ReMoTe/ThisIsMe" objFile.Write "" objFile.Write "A HackKeresés sikeresen befejeződött,és egy összegző fájlt hozott létre!" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write " Eredmények:" objFile.Write "" objFile.Write "A gépre telepített GTA-ban semmi átalakítást / hacket nem találtunk! A számítógép tiszta!" objFile.Write "" objFile.Write "Részletek:" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "S0BEIT HACK DETECTOR: d3d9.dll file not exist..." objFile.Write "CLEO MOD DETECTOR: Not founded cleo mods in GTA..." objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write ""&vbCrLf objFile.Close Dim objShell Set objShell = WScript.CreateObject( "WScript.Shell" ) objShell.Run("samp://") WScript.Sleep(1000) objShell.SendKeys "{LEFT}" objShell.SendKeys "{ENTER}" End If Else MsgBox "Error 404: Not Found GTA_SA.exe!", 0+16, "Error 404: File Not Found!" WScript.Quit() End If else elerut = InputBox ("Kérlek add meg itt, hogy hova telepítetted a játékot.", "Add meg a játék helyét!", "(Pl: D:\Játékok\GTA)") If (fso.FileExists(elerut & "\gta_sa.exe")) Then Set objFSO=CreateObject("Scripting.FileSystemObject") outFile="savedata.txt" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write elerut &vbCrLf If (fso.FileExists(elerut & "\d3d9.dll")) Then MsgBox "Állíts le / törölj ki MINDEN hacket amit a GTA-hoz használsz, majd próbáld újra! ", 0+16, "GTA SA:MP Anti Hack by:ReMoTe" intAnswer = _ Msgbox("Szeretnéd eltávolítani a fertőzött fájlokat? Ha igennel válaszolsz,az összes hack törlődni fog a GTA-ból!", _ vbYesNo, "Fertőtleníted a GTA-d?") If intAnswer = vbYes Then Set obj = CreateObject("Scripting.FileSystemObject") obj.DeleteFile(elerut & "\d3d9.dll") Msgbox "A fertőzött fájlok sikeresen eltávolítva!",0+64, "GTA SA:MP Anti Hack by:ReMoTe" Else End If Set objFSO=CreateObject("Scripting.FileSystemObject") outFile= elerut & "\HackDetectorReport.dll" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write "Grand Theft Auto SA:MP " objFile.Write " Hack Detector by: ReMoTe/ThisIsMe" objFile.Write "" objFile.Write "A HackKeresés sikeresen befejeződött,és egy összegző fájlt hozott létre!" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write " Eredmények:" objFile.Write "" objFile.Write "A gépre telepített GTA-ban hacket találtunk!" objFile.Write "" objFile.Write "Részletek:" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "S0BEIT HACK DETECTOR: d3d9.dll file is exist..." objFile.Write "CLEO MOD DETECTOR: Not founded cleo mods in GTA..." objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "" objFile.Write "" objFile.Write "" &vbCrLf objFile.Close WScript.Quit() Else outFile= elerut & "\HackDetectorReport.dll" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write "Grand Theft Auto SA:MP " objFile.Write " Hack Detector by: ReMoTe/ThisIsMe" objFile.Write "" objFile.Write "A HackKeresés sikeresen befejeződött,és egy összegző fájlt hozott létre!" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write " Eredmények:" objFile.Write "" objFile.Write "A gépre telepített GTA-ban semmi átalakítást / hacket nem találtunk! A számítógép tiszta!" objFile.Write "" objFile.Write "Részletek:" objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write "S0BEIT HACK DETECTOR: d3d9.dll file not exist..." objFile.Write "CLEO MOD DETECTOR: Not founded cleo mods in GTA..." objFile.Write "-----------------------------------------------------------------------------------------------------" objFile.Write ""&vbCrLf objFile.Close Set objShell = WScript.CreateObject( "WScript.Shell" ) objShell.Run("samp://") WScript.Sleep(1000) objShell.SendKeys "{LEFT}" objShell.SendKeys "{ENTER}" End If Else MsgBox "Error 404: Not Found GTA_SA.exe!", 0+16, "Error 404: File Not Found!" WScript.Quit() End If end if

Csak az a probléma,hogy hiába készíti el a "savedata.txt"-t és írja bele az "elerut"-at, de nem akarja megnyitni és felhasználni!

Az lenne a lényege,hogy első alkalomkor megkérdezi hogy hova van telepítve a játék,de másodalkalomkor mikor elindítjuk akkor már csak beolvassa a mentett fájlból,és nem kérdezi meg megint hogy hol a játék,hanem csak elvégzi az utasításokt... hol rontottam el?
Mutasd a teljes hozzászólást!
MsgBox "Start" Dim objFSO, objFile, objElerutFile, objOut, objOutFile Dim Elerut Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objElerutFile = CreateObject("Scripting.FileSystemObject") If (objElerutFile.FileExists("c:\savedata.txt")) Then MsgBox "Megvan a file" Set objFile = objFSO.OpenTextFile("C:\savedata.txt", ForReading) Elerut = objFile.ReadLine objFile.Close Else MsgBox "Nincs meg a file" Elerut = InputBox ("Add meg az elérési utat") Set objOut = CreateObject("Scripting.FileSystemObject") Set objOutFile = objOut.CreateTextFile("C:\savedata.txt", False) objOutFile.WriteLine(Elerut) objOutFile.Close End If MsgBox Elerut

Innen már jöhet a "tisztítás" mivel megvan az elérési utad.
Mutasd a teljes hozzászólást!

  • Az objDictionary-ba beolvasod a savedata tartalmát. De utána nem használod fel sehol

    Szerintem kezdd előröl az egészet, mert így nagy kuszaság van csak.

    1. megvizsgálod létezik-e a savedata.txt
    2. ha nem létrehozod és inputbox.....
    3. ha igen kiolvasod a tartalmát és felhasználod
    4 megvan az elérési út, most jöhet a "tisztítás" és ennyi.

    Fele méretű lesz a kód.
    Mutasd a teljes hozzászólást!
  • MsgBox "Start" Dim objFSO, objFile, objElerutFile, objOut, objOutFile Dim Elerut Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objElerutFile = CreateObject("Scripting.FileSystemObject") If (objElerutFile.FileExists("c:\savedata.txt")) Then MsgBox "Megvan a file" Set objFile = objFSO.OpenTextFile("C:\savedata.txt", ForReading) Elerut = objFile.ReadLine objFile.Close Else MsgBox "Nincs meg a file" Elerut = InputBox ("Add meg az elérési utat") Set objOut = CreateObject("Scripting.FileSystemObject") Set objOutFile = objOut.CreateTextFile("C:\savedata.txt", False) objOutFile.WriteLine(Elerut) objOutFile.Close End If MsgBox Elerut

    Innen már jöhet a "tisztítás" mivel megvan az elérési utad.
    Mutasd a teljes hozzászólást!
  • Köszi!
    átnézem :)
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd