Diablo 2 Kit

[Rewl]

Information

I have been programming in AutoIt for only one day (aprox. 5 hours). You really can't call this a "Program" But I am putting everything that I have learned from today into something that I find enjoyable and fun to use.

Source:

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
FileInstall("C:\Documents and Settings\Cody\Desktop\autoIT tutorial\youtube\logo.jpg" , "C:\logo.jpg")
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Daiblo 2 Kit- By Rewl v1.0 ", 633, 454, 192, 114)
Global $MenuItem1 = GUICtrlCreateMenu("File")
Global $MenuItem4 = GUICtrlCreateMenuItem("Close", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenu("Tools")
Global $MenuItem5 = GUICtrlCreateMenuItem("Calculator", $MenuItem3)
Global $MenuItem6 = GUICtrlCreateMenuItem("Log", $MenuItem3)
Global $MenuItem7 = GUICtrlCreateMenuItem("Google", $MenuItem3)
Global $MenuItem2 = GUICtrlCreateMenu("Support")
Global $MenuItem8 = GUICtrlCreateMenuItem("AutoIt Thread", $MenuItem2)
Global $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Cody\Desktop\autoIT tutorial\youtube\logo.jpg", 128, 0, 332, 148, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("By Rewl on Auto-It Forums", 128, 152, 328, 28)
GUICtrlSetFont(-1, 18, 800, 0, "Batang")
Global $Button1 = GUICtrlCreateButton("Calculator", 128, 200, 75, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Builds", 216, 200, 75, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Log Sheet", 304, 200, 75, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Google", 392, 200, 75, 25, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("More Coming Soon!", 232, 248, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE , $MenuItem4
            Exit
        Case $MenuItem5 , $Button1
            Run("Calc.exe")
        Case $MenuItem7 , $Button4
            ShellExecute("http://www.google.com")
        Case $Button2
            ShellExecute("http://diablo.incgamers.com/forums/showthread.php?t=748828")
        Case $MenuItem8
            ShellExecute("")
        Case $Button3 , $MenuItem6
            ShellExecute("Notepad.exe")

    EndSwitch
WEnd

Edited November 15, 2010 by Rewl

[CodyBarrett]

This Forums doesn't tolerate BOTs very well, BUT! i can't find anything in your script about automation/cheating of a game!

As a warning for future, bots no welcome here.

I'M THRILLED you chose AutoIt as your language of choice! for only 5 hours thats impressive compared to what i did.

Good Luck on the scripting!

[Rewl]

thanks! and nope no bots just a tool kit, no automation