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

Link to comment

Share on other sites

DCCD

Link to comment

Share on other sites

MARAN

Link to comment

Share on other sites

JohnOne

Link to comment

Share on other sites

MARAN

Link to comment

Share on other sites

Inverted

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta