Jump to content

Recommended Posts

Hi, guys. Could you have a look at my source?

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Include <File.au3>
#Include <Array.au3>
#include <Crypt.au3>
$Test1 = FileExists(@ScriptDir & "Wow.exe")
$Test2 = FileExists(@ScriptDir & "UnforgivenWow.exe")
If $Test1 + $Test2 = 0 Then
$WoWplc = RegRead("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentWorld of Warcraft", "InstallPath")
If $WoWplc = "" Then
  $WoWplc = FileSelectFolder("Open the folder of World of Warcraft", "", 6)
  If $WoWplc = "" Then Exit
  $WoWplc = $WoWplc & ""
  RegWrite("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentWorld of Warcraft", "InstallPath", "REG_SZ", $WoWplc)
EndIf
Else
$WoWplc = @ScriptDir & ""
EndIf
$EN =_FileListToArray($WoWplc & "Data", "en*", 2)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpLogo.bmp", $WoWplc & "DataLauncherLogo.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsCache.gif", $WoWplc & "DataLauncherCache.gif", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsLogs.gif", $WoWplc & "DataLauncherLogs.gif", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsErrors.gif", $WoWplc & "DataLauncherErrors.gif", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpStart.bmp", $WoWplc & "DataLauncherStart.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpDruid.bmp", $WoWplc & "DataLauncherDruid.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpPatch.bmp", $WoWplc & "DataLauncherPatch.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpRegister.bmp", $WoWplc & "DataLauncherRegister.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpHomepage.bmp", $WoWplc & "DataLauncherHomepage.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpVote.bmp", $WoWplc & "DataLauncherVote.bmp", 1)
FileInstall("C:UsersUnc3nZureDDesktopPicsbmpBug.bmp", $WoWplc & "DataLauncherBug.bmp", 1)
$Form2 = GUICreate("Unforgiven WoW - Launcher v0.2b", 429, 218)
GUISetBkColor(0x000000)
$Checkbox1 = GUICtrlCreateCheckbox("", 16, 192, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("", 120, 192, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 224, 192, 17, 17)
$Label1 = GUICtrlCreateLabel($EN[1], 368, 192, 47, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Pic1 = GUICtrlCreatePic($WoWplc & "DataLauncherLogo.gif", 0, 0, 424, 110, $WS_CLIPSIBLINGS)
$Pic2 = GUICtrlCreatePic($WoWplc & "DataLauncherCache.gif", 32, 192, 80, 17)
$Pic3 = GUICtrlCreatePic($WoWplc & "DataLauncherLogs.gif", 136, 192, 80, 17)
$Pic4 = GUICtrlCreatePic($WoWplc & "DataLauncherErrors.gif", 240, 192, 80, 17)
$Pic5 = GUICtrlCreatePic($WoWplc & "DataLauncherStart.bmp", 8, 72, 118, 74)
$Pic6 = GUICtrlCreatePic($WoWplc & "DataLauncherDruid.bmp", 128, 112, 139, 33)
$Pic7 = GUICtrlCreatePic($WoWplc & "DataLauncherPatch.bmp", 280, 112, 139, 33)
$Pic8 = GUICtrlCreatePic($WoWplc & "DataLauncherRegister.bmp", 8, 152, 107, 33)
$Pic9 = GUICtrlCreatePic($WoWplc & "DataLauncherHomepage.bmp", 280, 152, 107, 33)
$Pic10 = GUICtrlCreatePic($WoWplc & "DataLauncherVote.bmp", 128, 72, 107, 33)
$Pic11 = GUICtrlCreatePic($WoWplc & "DataLauncherBug.bmp", 128, 152, 131, 33)
WinSetTrans ("Unforgiven WoW - Launcher v0.2b", "", 230)
GUISetState(@SW_SHOW)
If RegRead("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Cache") = 1 Then GUICtrlSetState($Checkbox1, $GUI_CHECKED)
If RegRead("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Logs") = 1 Then GUICtrlSetState($Checkbox2, $GUI_CHECKED)
If RegRead("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Errors") = 1 Then GUICtrlSetState($Checkbox3, $GUI_CHECKED)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Pic11
   msgbox(64, "Error", "Function is not supported yet. Sorry.")
   Exit
  Case $Pic6
  Case $Pic5
  Case $Pic10
  Case $Pic9
  Case $Pic8
  Case $Pic7
  Case $Checkbox1
   If BitAnd(GUICtrlRead($Checkbox1),$GUI_CHECKED) = 1 Then
    RegWrite("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Cache", "Reg_SZ", "1")
   Else
    RegDelete("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Cache")
   EndIf
  Case $Checkbox2
   If BitAnd(GUICtrlRead($Checkbox2),$GUI_CHECKED) = 1 Then
    RegWrite("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Logs", "Reg_SZ", "1")
   Else
    RegDelete("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Logs")
   EndIf
  Case $Checkbox3
   If BitAnd(GUICtrlRead($Checkbox3),$GUI_CHECKED) = 1 Then
    RegWrite("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Errors", "Reg_SZ", "1")
   Else
    RegDelete("HKEY_LOCAL_MACHINESOFTWAREBlizzard EntertainmentUnforgiven Warcraft", "Errors")
   EndIf
EndSwitch
WEnd

When I execute it, the program somewhy thinks that pic11 is pressed. I can't find it why :S

The Program itself is not a bot or hack, it's just a tool that helps you to start the game faster. [Deleting cache, etc]

Edited by Unc3nZureD
Link to post
Share on other sites
  • Moderators

Unc3nZureD,

Your GUI is titled "Launcher" and contains buttons entitled "Start" and "Patch". Which part of:

""Any discussion of using AutoIt to launch or interact with a game or game server violates our rules"

do you find hard to understand? :)

Thread locked. ;)

M23

P.S. Your problem is almost certainly caused by the failure of the "

Bug" control to be created - this gives you a value of 0 in $Pic11 which fires on the "No message waiting" return from GUIGetMsg. :D

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...