Sign in to follow this  
Followers 0
MARAN

How to insert a Link in an Message Box?

6 posts in this topic

#1 ·  Posted (edited)

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 by MARAN

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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? :D:D

Edited by MARAN

Share this post


Link to post
Share on other sites

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.


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0