How to insert a Link in an Message Box?

MARAN · September 8, 2009

MsgBox(262468, "CruelSuffering's ECSRO/SWSRO Auto-Potion System (CRAPotion)", "This program is a Free Program." & @CRLF & "Do NOT sell it anywhere." & @CRLF & @CRLF & "This program is released under the Creative Commons v3.0 License." & @CRLF & "Read more about " & THE LINK HERE)

Can anybody help me?

Edited September 8, 2009 by MARAN

DCCD · September 8, 2009

Hi! Create your own MessageBox using a GuiCreate() function

$hGui = GUICreate("About", 400, 130)

$Label1 = GUICtrlCreateLabel("This program is a Free Program." & @CRLF & "Do NOT sell it anywhere." & @CRLF & @CRLF & "This program is released under the Creative Commons v3.0 License." & @CRLF & "Read more about " & "www.google.com", 10, 10, 380, 120)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Label1
            ShellExecute("www.google.com")
        Case - 3
            Exit
    EndSwitch
WEnd

MARAN · September 8, 2009

Thanks buddy, I already got this one, but there's no way to put a link into an Message Box?

***EDIT***

Oh and by the way, this is the full script that I'm working on:

Func GetMyLang()
    Select
        Case StringInStr("0436", @OSLang)
            Return "af"

        Case StringInStr("0402", @OSLang)
            Return "bg"

        Case StringInStr("0403", @OSLang)
            Return "ca"

        Case StringInStr("0406", @OSLang)
            Return "da"

        Case StringInStr("0407 0807 0c07 1007 1407", @OSLang)
            Return "de"

        Case StringInStr("408", @OSLang)
            Return "el"

        Case StringInStr("0c09 1409 1809 1c09 2009 2409 2809 2c09 3009 3409 1009 0809 0409", @OSLang)
            Return "en"

        Case StringInStr("040a 080a 0c0a 100a 140a 180a 1c0a 200a 240a 280a 2c0a 300a 340a 380a 3c0a 400a 440a 480a 4c0a 500a", @OSLang)
            Return "es"

        Case StringInStr("040b", @OSLang)
            Return "fi"

        Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
            Return "fr"

        Case StringInStr("040d", @OSLang)
            Return "he"

        Case StringInStr("041a", @OSLang)
            Return "hr"

        Case StringInStr("040e", @OSLang)
            Return "hu"

        Case StringInStr("0410 0810", @OSLang)
            Return "it"

        Case StringInStr("0411", @OSLang)
            Return "ja"

        Case StringInStr("0412", @OSLang)
            Return "ko"

        Case StringInStr("042f", @OSLang)
            Return "mk"

        Case StringInStr("0413 0813", @OSLang)
            Return "nl"

        Case StringInStr("0414 0814", @OSLang)
            Return "no"

        Case StringInStr("0415", @OSLang)
            Return "pl"

        Case StringInStr("0416 0816", @OSLang)
            Return "pt"

        Case StringInStr("0418", @OSLang)
            Return "ro"

        Case StringInStr("0424", @OSLang)
            Return "sl"

        Case StringInStr("081a 0c1a", @OSLang)
            Return "sr"

        Case StringInStr("041d 081d", @OSLang)
            Return "sv"

        Case StringInStr("0404 0804 0c04 1004 1404", @OSLang)
            Return "zh"

        Case Else
            Return "en"
    EndSelect
EndFunc

$Terms = MsgBox(262468, "CruelSuffering's ECSRO Auto-Potion System (CRAPotion)", "-> This program is a Free Program and it's released under the Creative Commons v3.0 License." & @CRLF & "-> Do NOT sell it in any place!" & @CRLF & @CRLF & "http://creativecommons.org/licenses/by-nc-sa/3.0/deed." & GetMyLang() & @CRLF & @CRLF & "Yes: Accept, visit the license page and open the program." & @CRLF & "No: Terminate the program." & @CRLF & @CRLF & "Do you accept the conditions above?")

If $Terms = 7 Then
    Exit
ElseIf $Terms = 6 Then
    ShellExecute("http://creativecommons.org/licenses/by-nc-sa/3.0/deed." & GetMyLang())
EndIf

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 2035711, $iv_InheritHandle = 1)
    If Not ProcessExists($iv_Pid) Then
        SetError(1)
        Return 0
    EndIf
    Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
    If @Error Then
        SetError(2)
        Return 0
    EndIf
    Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $iv_InheritHandle, 'int', $iv_Pid)
    If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf
    $ah_Handle[1] = $av_OpenProcess[0]
    Return $ah_Handle
EndFunc

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf
    Local $v_Buffer = DllStructCreate($sv_Type)
    If @Error Then
        SetError(@Error + 1)
        Return 0
    EndIf
    DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
    If Not @Error Then
        Local $v_Value = DllStructGetData($v_Buffer, 1)
        Return $v_Value
    Else
        SetError(6)
        Return 0
    EndIf
EndFunc

Func _MemoryReadDynamic($Pointer, $Offset, $MID, $Type = 'dword')
    $NewAdress = _MemoryRead($Pointer, $MID) + $Offset
    $Result = _MemoryRead($NewAdress, $MID, $Type)
    Return $Result
EndFunc


Func _MemoryClose($ah_Handle)
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf
    DllCall($ah_Handle[0], 'int', 'CloseHandle', 'int', $ah_Handle[1])
    If Not @Error Then
        DllClose($ah_Handle[0])
        Return 1
    Else
        DllClose($ah_Handle[0])
        SetError(2)
        Return 0
    EndIf
EndFunc

AutoItSetOption("TrayAutoPause", 0)
AutoItSetOption("TrayMenuMode", 1)
TraySetClick(8)
$ShowHide = TrayCreateItem("Show/Hide")
TrayCreateItem("")
$ExitMe = TrayCreateItem("Exit")

TrayTip("CruelSuffering's Autopotion", "The autopotion program is here and it's hiden." & @CRLF & "Double-click on the icon to see the program's interface." & @CRLF & @CRLF & "Please execute your Silkroad client.", 0, 1)

$Read1 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableHP")
$Read2 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableMP")
$Read3 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnablePill")
$Read4 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableVig")
$Read5 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentHP")
$Read6 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentMP")
$Read7 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentVig")
$Read8 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotHP")
$Read9 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotMP")
$Read10 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotPill")
$Read11 = RegRead("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotVig")

$CRAP = GUICreate("CRAPotion", 193, 197, 394, 334, -1)
GUICtrlCreateGroup("", 6, 66, 180, 33, $BS_FLAT)
$Health_Check = GUICtrlCreateCheckbox("", 9, 76, 13, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_FLAT,$WS_TABSTOP))
If $Read1 Not = @error Then
    Switch $Read1
        Case 4
            GUICtrlSetState($Health_Check, $GUI_UNCHECKED)
        Case 1
            GUICtrlSetState($Health_Check, $GUI_CHECKED)
    EndSwitch
EndIf
GUICtrlCreateLabel("HP <=", 24, 78, 34, 17)
$Health_Percent = GUICtrlCreateInput("65", 57, 75, 30, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetLimit($Health_Percent, 3)
If $Read5 Not = @error Then
    GUICtrlSetData($Health_Percent, $Read5)
EndIf
GUICtrlCreateLabel("%", 90, 78, 12, 17)
$Health_Slot = GUICtrlCreateCombo("", 142, 75, 40, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($Health_Slot, "1|2|3|4|5|6|7|8|9|0|X", "9")
If $Read8 Not = @error Then
    GUICtrlSetData($Health_Slot, $Read8)
EndIf
GUICtrlCreateLabel("Slot", 120, 78, 22, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 6, 96, 180, 33, $BS_FLAT)
$Mana_Check = GUICtrlCreateCheckbox("", 9, 106, 13, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_FLAT,$WS_TABSTOP))
If $Read2 Not = @error Then
    Switch $Read2
        Case 4
            GUICtrlSetState($Mana_Check, $GUI_UNCHECKED)
        Case 1
            GUICtrlSetState($Mana_Check, $GUI_CHECKED)
    EndSwitch
EndIf
GUICtrlCreateLabel("MP <=", 24, 108, 35, 17)
$Mana_Percent = GUICtrlCreateInput("50", 57, 105, 30, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetLimit($Mana_Percent, 3)
If $Read6 Not = @error Then
    GUICtrlSetData($Mana_Percent, $Read6)
EndIf
GUICtrlCreateLabel("%", 90, 108, 12, 17)
$Mana_Slot = GUICtrlCreateCombo("", 142, 105, 40, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($Mana_Slot, "1|2|3|4|5|6|7|8|9|0|X", "0")
If $Read9 Not = @error Then
    GUICtrlSetData($Mana_Slot, $Read9)
EndIf
GUICtrlCreateLabel("Slot", 120, 108, 22, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 6, 36, 180, 33, $BS_FLAT)
$Pill_Check = GUICtrlCreateCheckbox("", 9, 46, 13, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_FLAT,$WS_TABSTOP))
If $Read3 Not = @error Then
    Switch $Read3
        Case 4
            GUICtrlSetState($Pill_Check, $GUI_UNCHECKED)
        Case 1
            GUICtrlSetState($Pill_Check, $GUI_CHECKED)
    EndSwitch
EndIf
$Pill_Slot = GUICtrlCreateCombo("", 142, 45, 40, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($Pill_Slot, "1|2|3|4|5|6|7|8|9|0|X", "X")
If $Read10 Not = @error Then
    GUICtrlSetData($Pill_Slot, $Read10)
EndIf
GUICtrlCreateLabel("Slot", 120, 48, 22, 17)
GUICtrlCreateLabel("Pill on Bad Status", 24, 48, 87, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 6, 0, 180, 33, $BS_FLAT)
GUICtrlCreateLabel("CurHP", 9, 12, 35, 17)
$Stats_HPBar = GUICtrlCreateProgress(42, 9, 12, 20, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateLabel("CurMP", 60, 12, 36, 17)
$Stats_MPbar = GUICtrlCreateProgress(94, 9, 12, 20, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x000080)
$Stats_BadStatusCheck = GUICtrlCreateCheckbox("", 168, 11, 13, 17, BitOR($BS_CHECKBOX,$BS_FLAT,$WS_TABSTOP))
GUICtrlCreateLabel("BadStatus", 114, 12, 53, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 6, 126, 180, 33, $BS_FLAT)
$Vigor_Check = GUICtrlCreateCheckbox("", 9, 136, 13, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_FLAT,$WS_TABSTOP))
If $Read4 Not = @error Then
    Switch $Read4
        Case 4
            GUICtrlSetState($Vigor_Check, $GUI_UNCHECKED)
        Case 1
            GUICtrlSetState($Vigor_Check, $GUI_CHECKED)
    EndSwitch
EndIf
$Vigor_Slot = GUICtrlCreateCombo("", 142, 135, 40, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($Vigor_Slot, "1|2|3|4|5|6|7|8|9|0|X", "8")
If $Read11 Not = @error Then
    GUICtrlSetData($Pill_Slot, $Read11)
EndIf
GUICtrlCreateLabel("Slot", 120, 138, 22, 17)
GUICtrlCreateLabel("Vig <=", 24, 138, 34, 17)
$Vigor_Percent = GUICtrlCreateInput("30", 57, 135, 31, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetLimit($Vigor_Percent, 3)
If $Read7 Not = @error Then
    GUICtrlSetData($Vigor_Percent, $Read7)
EndIf
GUICtrlCreateLabel("%", 90, 138, 12, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$SaveApply_Button = GUICtrlCreateButton("SAVE and APPLY", 6, 165, 180, 25, BitOR($BS_CENTER,$BS_FLAT,$WS_GROUP))
GUISetState(@SW_HIDE)
$Hiden = 1

Global $Pointer = 11132516
Global $CurHP_Pointer = 940
Global $CurMP_Pointer = 944

Global $MaxHP_Offset = 11130720
Global $MaxHP_Offset = 11130724

While 1
    $nMsg = GUIGetMsg()
    $tMsg = TrayGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUISetState(@SW_HIDE)
            TrayTip("CruelSuffering's Autopotion", "The autopotion program is here and it's hiden." & @CRLF & "Double-click on the icon to see the program's interface.", 0, 1)
            $Hiden = 1

        Case $SaveApply_Button
            If GUICtrlRead($Health_Percent) > 100 Then
                GUICtrlSetData($Health_Percent, 100)
            ElseIf GUICtrlRead($Mana_Percent) > 100 Then
                GUICtrlSetData($Mana_Percent, 100)
            ElseIf GUICtrlRead($Vigor_Percent) > 100 Then
                GUICtrlSetData($Vigor_Percent, 100)
            EndIf
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableHP", "REG_SZ", GUICtrlRead($Health_Check))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableMP", "REG_SZ", GUICtrlRead($Mana_Check))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnablePill", "REG_SZ", GUICtrlRead($Pill_Check))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "EnableVig", "REG_SZ", GUICtrlRead($Vigor_Check))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentHP", "REG_SZ", GUICtrlRead($Health_Percent))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentMP", "REG_SZ", GUICtrlRead($Mana_Percent))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "PercentVig", "REG_SZ", GUICtrlRead($Vigor_Percent))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotHP", "REG_SZ", GUICtrlRead($Health_Slot))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotMP", "REG_SZ", GUICtrlRead($Mana_Slot))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotPill", "REG_SZ", GUICtrlRead($Pill_Slot))
            RegWrite("HKEY_CURRENT_USER\Software\CruelSuffering\AutoPotion\v0.1", "SlotVig", "REG_SZ", GUICtrlRead($Vigor_Slot))
    EndSwitch
    Switch $tMsg
        Case $TRAY_EVENT_PRIMARYDOUBLE
            GUISetState(@SW_SHOW)
            $Hiden = 0

        Case $ShowHide
            If $Hiden = 1 Then
                GUISetState(@SW_SHOW)
                $Hiden = 0
            ElseIf $Hiden = 0 Then
                GUISetState(@SW_HIDE)
                $Hiden = 1
            EndIf

        Case $ExitMe
            Exit
    EndSwitch
WEnd

There's anything to enhance?

Edited September 8, 2009 by MARAN

JohnOne · September 8, 2009

Thanks buddy, I already got this one, but there's no way to put a link into an Message Box?

The code given above puts a link in the msgbox.

You may just want to change the cursor when above it indicate this.

MARAN · September 8, 2009

The code given above puts a link in the msgbox.
You may just want to change the cursor when above it indicate this.

I want to insert it on an MsgBox() command, not create another GUI.

But I seen that it isn't possible.

Thanks.

Inverted · September 8, 2009

That's right, you cannot insert a link in a MsgBox, the best you can do is make a Yes/No/Cancel type MsgBox, which asks the user if he wants to go to the website you want.

Sign In

How to insert a Link in an Message Box?

Recommended Posts

MARAN

DCCD

MARAN

JohnOne

MARAN

Inverted

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta