Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;@Ahk2Exe-SetCompanyName VANHEARTNET LTD. INC.
- ;@Ahk2Exe-SetCopyright All rights reserved © VANHEARTNET
- ;@Ahk2Exe-Set FileDescription, Cabal Updater
- ;@Ahk2Exe-Set FileVersion, 2.5.1.0
- ;@Ahk2Exe-SetInternalName Cabal Updater
- ;@Ahk2Exe-SetName Cabal Updater
- ;@Ahk2Exe-SetOrigFileName Cabal Updater
- ;@Ahk2Exe-Set ProductName, Game Updater
- ;@Ahk2Exe-Set ProductVersion, 2.5.1.0
- ;@Ahk2Exe-Set Description, Cabal Updater
- ;@Ahk2Exe-Set Comments, Software Created by : VANHEARTNET
- #SingleInstance, Force
- #NoEnv
- #Persistent
- Menu,Tray,Nostandard
- SetWorkingDir %A_ScriptDir%
- SetTitleMatchMode,2
- Process,close,launcher.exe
- IfNotExist,%A_Temp%\3.0
- {
- FileCreateDir,%A_Temp%\3.0
- Gosub,InstallPNG
- }
- else
- {
- FileReMoveDir,%A_Temp%\3.0,1
- FileCreateDir,%A_Temp%\3.0
- Gosub, InstallPNG
- }
- FileSetAttrib,+H,%A_Temp%\3.0
- temp=%A_Temp%\3.0\
- IfNotExist,vPNG
- FileCreateDir,vPNG
- gosub,Check_Updates
- IfExist,cabal.exe
- Run,cabal.exe
- Else IfExist, cabalmain.exe
- Run,cabalmain.exe
- Else IfExist,update.exe
- Run,update.exe
- else
- {
- MsgBox,16,Error, Some Files are missing or moved.`nPlease Put the File in Cabal Folder...`n `n- В© VANHEARTNET
- ExitApp
- }
- WinWait,Cabal Launcher
- WinGetPos,X,Y,W,H,Cabal Launcher
- PP=vPNG\
- CC:=true
- CC2:=true
- Loop
- {
- Loop,%A_Temp%\3.0\*.png,1
- {
- P:=A_LoopFileName
- WinActivate
- Imagesearch,locx,locy,0,0, %W%, %H%,*50 %temp%%P%
- {
- if (errorlevel=0)
- {
- Process,close,launcher.exe
- FileRemoveDir,%A_Temp%\3.0,1
- Traytip,CabalPH Online`t,Updated...,,1
- Sleep, 3000
- ExitApp
- }
- }
- }
- Loop,vPNG\*.png,1
- {
- P:=A_LoopFileName
- ifexist,%PP%%P%
- {
- WinActivate
- Imagesearch,locx,locy,0,0, %W%, %H%,*50 %PP%%P%
- if (errorlevel = 0)
- {
- Process,close,launcher.exe
- FileRemoveDir,%A_Temp%\3.0,1
- Traytip,CabalPH Online`t,Updated...,,1
- sleep,3000
- ExitApp
- }
- }
- }
- sleep,2000
- Traytip,CabalPH Online`t,Patching Updates...,,1
- }
- return
- Esc::
- Delete::
- Process,close,launcher.exe
- ExitApp
- End::
- ExitApp
- Check_Updates:
- ;~ =======================================CHECK VERSION=====================================================
- V=2.5.1.0
- MFlink=http://www.mediafire.com/file/s3cd9r5prlzlesx/CabalPH_Updater.rar/file
- pastebin=https://pastebin.com/Gi1gWyFk
- ;~ ============================================================================================
- message=CabalPH Updater
- message1=`n`nThank You`n`n-VANHEARTNET
- message2=CabalPH Updater`n`nLatest version is now available and ready to download`nYou will redirect to a download link.`n`nThank You`n`n-VANHEARTNET
- ;~ ============================================================================================
- URLDownloadToFile,%pastebin%,%A_Temp%\3.0\%message% version.dat
- if errorlevel=0
- {
- fileread,version,%A_Temp%\3.0\%message% version.dat
- IfNotInString,version,%V%
- {
- Loop,read,%A_Temp%\3.0\%message% version.dat
- {
- str := A_LoopReadLine
- s:=StrSplit(str,"version=")
- Loop,parse,A_LoopReadLine,`n
- {
- IfNotInString,str,version=
- continue
- else
- {
- rar:=StrSplit(s.2,"</div>")
- url1:=rar.1
- V2:=url1
- break 2
- }
- }
- }
- MsgBox, 262180, %message%, A new version is Available!`n`nDo you want to download?`nversion : %V2%,10
- IfMsgBox,Yes
- Run,%MFlink%
- }
- }
- ;~ ==================================================================================================================
- return
- InstallPNG:
- FileInstall,cabalph.png,%A_Temp%\3.0\cabalph.png
- FileInstall,vPNG\1.png,%A_Temp%\3.0\1.png
- FileInstall,vPNG\2.png,%A_Temp%\3.0\2.png
- FileInstall,vPNG\3.png,%A_Temp%\3.0\3.png
- FileInstall,vPNG\4.png,%A_Temp%\3.0\4.png
- FileInstall,vPNG\5.png,%A_Temp%\3.0\5.png
- FileInstall,vPNG\6.png,%A_Temp%\3.0\6.png
- FileInstall,vPNG\7.png,%A_Temp%\3.0\7.png
- return
Add Comment
Please, Sign In to add comment