Error after Compile Script...

[Keniger]

I have script... When I run it without compile (In scite) its ok..

But after compile I get that error :

WTF IS THAT ?

[Jos]

WTF IS THAT ?

I think the last time I replied to you I asked for some comprehensive sentenses when explaining your issues or asking questions.

It seem I wasn't clear so let me try again:

What the hell were you thinking when posting this thread?

You have an error which you capture as a full screen shot in stead of showing us your script that has the error and asking a NORMAL question.

Now try again and this time think before posting!

Jos

Edited March 8, 2013 by Jos

[Keniger]

expandcollapse popup

#RequireAdmin
#include 
#include 
AutoItSetOption("SendKeyDelay", 0)
Global $aRecords, $bRecords
Local $Patch = @ScriptDir & "\userlists.tmp", $Patch2 = @UserProfileDir & "\AppData\Local\PunkBuster\BFP4F\pb", $Patch3 = @ScriptDir & "\BLOCKFILES.tmp", $Patch4 = @UserProfileDir & "\AppData\Local\PunkBuster\BFP4F\pb"
Local $Title = "Checking..."


If Not FileExists(@ScriptDir & "\userlists.tmp") Then
RunWait("cmd.exe /c " & "wmic USERACCOUNT get Name >"&@ScriptDir&"\userlists.tmp",@ScriptDir,@SW_HIDE) ; Wypisuje surowe nazwy userów do pliku userlist.tmp na pulpicie
_checkallgood()
Else
_checkallgood()
EndIf


Func _checkallgood()
SplashTextOn($Title, "Preparing to block, please wait...", 300, 50, -1, -1, 33, "Comic Sans MS", 10)
Run("cmd.exe")
If ProcessExists("cmd.exe") Then
ProcessClose("cmd.exe")
Sleep(2000)
SplashOff()
_block()
Else
SplashOff()
MsgBox(16, "Error", "Can't run Command Prompt, try to Execute program as Admin!")
Exit
EndIf
EndFunc

Func _block()
;#####PLIKI DO ZABLOKOWANIA############PLIKI DO ZABLOKOWANIA############PLIKI DO ZABLOKOWANIA#######
;#####PLIKI DO ZABLOKOWANIA############PLIKI DO ZABLOKOWANIA############PLIKI DO ZABLOKOWANIA#######
If FileExists($Patch3) Then
_block2()
Else
$avUser = _FileListToArray($Patch4)
$sFile = $Patch3
$hFile = FileOpen($sFile, 1)
_FileWriteFromArray($hFile, $avUser, 1)
FileClose($hFile)
_block2()
EndIf
endfunc


Func _block2()
; MsgBox(64, "Warrning !", "Don't do nothing if
;#####ZAMIENIA PUSTE ZNAKI W NIC XD ############ZAMIENIA PUSTE ZNAKI W NIC XD ##################
;#####ZAMIENIA PUSTE ZNAKI W NIC XD ############ZAMIENIA PUSTE ZNAKI W NIC XD ##################
$Czytaj = FileRead($Patch)
$Zamien = StringReplace($Czytaj, " ", "")
$Otworz = FileOpen($Patch, 2)
FileWrite($Patch, $Zamien)
_FileWriteToLine($Patch, 1, "SYSTEM", 1)
_FileWriteToLine($Patch, 1, "Administratorzy", 0)
FileClose($Otworz)
;#####BLOKUJE PODANE PLIKI NA KAŻDEGO USERA KTÓRY JEST NA KOMPIE##############BLOKUJE PODANE PLIKI NA KAŻDEGO USERA KTÓRY JEST NA KOMPIE#########
;#####BLOKUJE PODANE PLIKI NA KAŻDEGO USERA KTÓRY JEST NA KOMPIE##############BLOKUJE PODANE PLIKI NA KAŻDEGO USERA KTÓRY JEST NA KOMPIE#########
$Users = FileOpen($Patch)
$Blokuj = FileOpen($Patch2)
;$Czytaj2 = _FileReadToArray($Patch, $aRecords) ; READS USERNAMES TO ARRAY
$Czytaj3 = _FileReadToArray($Patch3, $bRecords) ; READS THIS FILENAMES TO ARRAY
$Czytaj2 = _FileReadToArray($Patch, $aRecords)
Run("cmd.exe")
Sleep(500)
For $z = 1 to $aRecords[0]
For $x = 1 to $bRecords[0]
Send("cacls " & $Patch2 & "\" & $bRecords[$x] & " /E /P " & $aRecords[$z]& ":R" )
Send("{ENTER}")
Next
Next


FileClose($Users)
FileClose($Blokuj)
FileDelete($Patch)
FileDelete($Patch3)
ProcessClose("cmd.exe")
Return()
EndFunc

Here....

Script crashes after it do everything...

Edited March 9, 2013 by Melba23
Restored post after OP deleted it

[iamtheky]

That and its in a PBBbypass folder named gg.exe

and there it is - a script to avoid PunkBuster...

[Jos]

Here....

Script crashes after it do everything...

Make sure you run au3check on your scripts since there is clearly an error there.

Install the full SciTE4AutoIt3 to help you with that.

"...test\test.au3"(82,10) : error: syntax error
Return ()
~~~~~~~~^

Other that that:Topic locked for obvious reasons.

Read the forum rules.

Edited March 8, 2013 by Jos

[Melba23]

Keniger,

PunkBusterBFP4F

Googling this brings up lots of hits for "Battlefield Play4Free - PunkBuster Online Countermeasures" - would you care to comment on what you are doing with thsi script?

M23