AutoHotkey Community

Code: Select all

SetWorkingDir, %A_ScriptDir%
Url := "http://fincs.ahk4.net/scite4ahk/dl/s4ahk-install.exe"
SplitPath, Url, File

MsgBox, 308, Update, Are you sure you want to QUIT SciTE and update?
IfMsgBox, No
	ExitApp

if !(hWnd := ComObjActive("SciTE4AHK.Application").SciTEHandle)
	ExitApp
WinClose, ahk_id %hWnd%

FileDelete, %File%

Gui, -SysMenu
Gui, Add, Progress, w200 vProgress
Gui, Add, Text, w200 vText Center, 0`%
Gui, Show,, Downloading Installer

Http :=ComObjCreate("WinHttp.WinHttpRequest.5.1")
Http.Open("HEAD", Url), Http.Send()
FileSize := Http.GetResponseHeader("Content-Length")

SetTimer, CheckDownload, 100
UrlDownloadToFile, %Url%, %File%
SetTimer, CheckDownload, Off
GuiControl,, Text, Running installer

if WinExist("ahk_id" hWnd)
{
	WinGet, PID, PID, ahk_id %hWnd%
	Process, Close, %PID%
	Process, WaitClose, %PID%, 2
	if WinExist("ahk_id" hWnd)
	{
		MsgBox, Can't get SciTE to close
		ExitApp
	}
}

Run, %File%,,, PID
WinWait, ahk_pid %PID%,, 10
ExitApp
return

CheckDownload:
if (LastFile != File)
	FObj := FileOpen(LastFile := File, "r")
Percent := Floor(FObj.Length / FileSize * 100)
GuiControl,, Progress, %Percent%
GuiControl,, Text, %Percent%`%
return

Code: Select all

---------------------------
MsgBoxC.ahk
---------------------------
Error:  0x80020009 - Exception occurred.

Source:		SendMessage
Description:	FAIL
HelpFile:		C:\Program Files\AutoHotkey\SciTE\toolbar\Lib\SciUtil.ahk:8
HelpContext:	0

Specifically: InsertText

	Line#
	213: MsgBox,Msgbox_Number,Title,Text
	214: Return
	218: {
	219: StringReplace,Var,Var,
,`n,All
	220: StringReplace,Var,Var,,,`,,All
	221: StringReplace,Var,Var,;,`;,All
	222: }
--->	225: oSciTE.InsertText(Msgbox_Command)  
	226: ExitApp
	229: ExitApp
	232: Gui,Show
	233: Return
	236: GuiControl,,Title
	237: GuiControl,,Text
	238: GuiControl,,Modality1,1

Continue running the script?
---------------------------
Yes   No   
---------------------------