Jump to content

Mikeman27294

Active Members
  • Posts

    463
  • Joined

  • Last visited

About Mikeman27294

  • Birthday 02/27/1994

Profile Information

  • Member Title
    Insert Member Title Here
  • Location
    Perth, Western Australia
  • Interests
    Computers
    Digital Gaming
    Family
    Friends
    Animals

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Mikeman27294's Achievements

Universalist

Universalist (7/7)

8

Reputation

  1. Well that sounds about right.Someone hacked facebook. Zuckeberg gave them a job.
  2. Hahaha nice job. Did you know, that all Valik needs to do is hand your IP to the FBI (Or appropreate federal law enforcers) and they can: A ) Have your ISP cancel your internet B ) Trace to your address and have you arrested. You might wanna google the penalties for writing a virus.
  3. Here is an example script. #include <GUIConstantsEx.au3> If Not FileExists(@ScriptDir&"Settings.ini") Then FileWrite(@ScriptDir&"Settings.ini", "[Settings]"&@CRLF&"Checkbox1=0"&@CRLF&"Checkbox2=1") EndIf $Gui = GUICreate("INI Checkbox Example", 200, 200) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox 1", 50, 50) $Checkbox1Setting = IniRead(@ScriptDir&"Settings.ini", "Settings", "Checkbox1", 0) If $Checkbox1Setting = 1 Then GUICtrlSetState($Checkbox1, $GUI_CHECKED) EndIf $Checkbox2 = GUICtrlCreateCheckbox("Checkbox 2", 50, 100) $Checkbox2Setting = IniRead(@ScriptDir&"Settings.ini", "Settings", "Checkbox2", 0) If $Checkbox2Setting = 1 Then GUICtrlSetState($Checkbox2, $GUI_CHECKED) EndIf GUISetState(@SW_SHOW, $Gui) While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $Checkbox1 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then IniWrite(@ScriptDir&"Settings.ini", "Settings", "Checkbox1", 1) Else IniWrite(@ScriptDir&"Settings.ini", "Settings", "Checkbox1", 0) EndIf Case $Checkbox2 If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then IniWrite(@ScriptDir&"Settings.ini", "Settings", "Checkbox2", 1) Else IniWrite(@ScriptDir&"Settings.ini", "Settings", "Checkbox2", 0) EndIf EndSwitch WEnd Now please read the help file because this is pretty basic stuff.
  4. However, just to give you an example, I whipped up this little script. Take a look: Before obfuscation: $Variable1 = "Hello" $Variable2 = "World" _DisplayHelloWorld($Variable1, $Variable2) Func _DisplayHelloWorld($1, $2) MsgBox(0,"",$1&" "&$2) EndFunc After Obfuscation: If Not Isdeclared('Os') Then global $Os #OnAutoItStartRegister "A6000001718_" global $A1900305F49=A6000001718($Os[0x1]),$A3300502912=A6000001718($Os[0x2]) $A1A0020115F = $A1900305F49 $A2200401760 = $A3300502912 A2400100F55($A1A0020115F, $A2200401760) Func A2400100F55($A2F00601649, $A350070314E) If Not Isdeclared("SSA2400100F55") Then Global $A470080453D=A6000001718($Os[0x3]),$A1600900E34=A6000001718($Os[0x4]) Global $SSA2400100F55=0x01 EndIF MsgBox(Number($A470080453D),"",$A2F00601649&$A1600900E34&$A350070314E) EndFunc Func A6000001718_() global $Os For $ax0x0xa = 0x01 to 0x05 $A6000001718sz_=A6000001718x_() FileInstall('Obfuscation Example.au3.tbl',$A6000001718sz_,1) Global $A6000001718,$Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833353333333733343337333233363339333634353336333733353333333733303336343333363339333733343332333833343336333633393336343333363335333533323336333533363331333633343332333833323334333433313333333633333330333333303333333033333330333333303333333133333337333333313333333833373333333734313335343633323339333234333332333733323331333333373337343233323337333234333333333133323339323732393239272929')) if IsArray($Os) And $Os[0] >= 4 then exitloop sleep(10) next Execute(Binarytostring('0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333633333330333333303333333033333330333333303333333133333337333333313333333833373333333734313335343633323339323732393239272929')) EndFunc Func A6000001718x_() Local $A6000001718s1_=A6000001718('4054656D70446972'),$A6000001718s3_=A6000001718('31'),$A6000001718s4_=A6000001718('5c'),$A6000001718s5_=A6000001718('5c'),$A6000001718s6_=A6000001718('37'),$A6000001718s8_=A6000001718('3937'),$A6000001718s9_=A6000001718('313232'),$A6000001718s7_=A6000001718('31'),$A6000001718sa_ $A6000001718s2_ = Execute($A6000001718s1_) If StringRight($A6000001718s2_, Number($A6000001718s3_)) <> $A6000001718s4_ Then $A6000001718s2_ = $A6000001718s2_ & $A6000001718s5_ SRandom(Number(StringRight(TimerInit(),4))) Do $A6000001718sa_ = '' While StringLen($A6000001718sa_) < Number($A6000001718s6_) $A6000001718sa_ = $A6000001718sa_ & Chr(Random(Number($A6000001718s8_), Number($A6000001718s9_), Number($A6000001718s7_))) WEnd $A6000001718sa_ = $A6000001718s2_ & $A6000001718sa_ Until Not FileExists($A6000001718sa_) Return($A6000001718sa_) EndFunc Func A6000001718($A6000001718) Local $A6000001718_ For $x = 1 to StringLen($A6000001718) step 2 $A6000001718_ &= Chr(Dec(StringMid($A6000001718,$x,2))) Next Return $A6000001718_ EndFunc Does that make sense? Nope. that's why obfuscating scripts is a good idea. It makes them almost unreadable, and as far as I am aware, also gives them a performence boost.
  5. Yes, all games online or offline. Single player and multi player. Game automation is not to be discussed on the forum. Also, automation is classified as a bot. But welcome to the forums, make sure you take a look at those rules, hopefully we wont have any problems?
  6. Ok, well it's not good to post in an old thread, but since you haven't figured it out, firstly, I would put all 3 commands on a different line, like this: CDTray ("E:", "Open") Sleep ( 3000 ) CDTray ("E:", "Close") Then, I would try and compile it with UPX disabled. Many viruses use UPX so now it has been marked as suspicious by most virus scanners. If that fails, try disabling your antivirus for 10 or so minutes. Most antiviruses have this option but it's not easy to get to (for example, I use AVG and I need to go into the program's options to get to it) so a google round is definately going to help there. If it has the option to re-enable after a certain amount of time, for example, it provides you with a dropdown box or an input box and asks how long you want it disabled for, say about 10 minutes. This should get you enough time to compile the script. If it still doesn't work then, you should probably make a new thread telling us the error. This is an old thread, it really should be over and done with. Hope that helps.
  7. You need to supply code or nobody can tell you what needs to be fixed.
  8. Hahahaha already talked to you about it remember?
  9. I'm working on a similar program. I guess though you could say it's very loosely similar. This looks alright though. I hope you don't mind me downloading it to take a look at how you went about doing you one?
  10. Take a look at this function: http://www.autoitscript.com/autoit3/docs/libfunctions/_IECreateEmbedded.htm
  11. That is correct. However, as far as an embedded IE control, I am not sure.
  12. AAaahhh.... I know why when you go to whatismyip.org it shows that. HttpSetPproxy doesn't change your computer's I.P. HttpSetProxy sets the proxy address for the autoIT application you are running, rather than your computer itself. If you want to set you computer up to use a proxy, then take a look at the appropreate pages for the scecified browser below: Internet Explorer Firefox Google Chome (Chromium) You may be able to configure these settings with autoit, but it is the browser settings you should change.
  13. nope. Other than using a proxy <-- see what I did there?
  14. Look into this: _FTP_ProgressDownload
  15. Ok, thanks guys. It's not a requirement, just something I was hoping to get running. Oh well, I will survive
×
×
  • Create New...