HybridShadow Posted July 24, 2005 Share Posted July 24, 2005 All it is, is a simple dialog box that i can reshack the massage to and the titlesuch as like winzips example programTitle - ExampleText - The is a sample programbut i cant reshack it to change the text because its 16bitand other small dialog boxes i've found wont show the text they only show the icon in rehackerCan Anyone help me please Link to comment Share on other sites More sharing options...
Fredledingue Posted July 30, 2005 Share Posted July 30, 2005 ???Do a VBScript......or did I miss something?Copy-paste this code in notepad and save it as Msg.vbsMsgbox "message",,"Title" Link to comment Share on other sites More sharing options...
HybridShadow Posted July 31, 2005 Author Share Posted July 31, 2005 (edited) I did not know thatThank you very muchMsgbox "message",,"Title"Say I wantedTITLE to be - WhateverThe Text box - BLAHBLAHAHALHAAKDLHD risdouhgdifohgdiohjHow do i get it to go on the next lineand how do I put weblinks in it? or have a countdown timer is it possible? Edited July 31, 2005 by matt5108 Link to comment Share on other sites More sharing options...
gunsmokingman Posted July 31, 2005 Share Posted July 31, 2005 (edited) Save This As CountDown.HtaThis One Counts up <TITLE> CountDown</TITLE> <HTA:APPLICATION ID=GsmRadio APPLICATIONNAME=GsmUpdaterV1 SYSMENU="yes" Icon="http://www3.telus.net/GSMJAK1E/AUABuilder/BgImgs/Hta2.ico"><head> <!-- ;;;;; RESIZES THE WINDOW ;;;;; --> <script language="vbscript"> window.resizeTo 500,275 Dim Act : Set Act = CreateObject("Wscript.shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Sd : Sd = Act.ExpandEnvironmentStrings("%systemdrive%") Dim UName : UName = Act.ExpandEnvironmentStrings("%UserName%") Function Rst1 '''' <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; --> Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\Rest1.vbs", 2, true) Ts.WriteLine "Wscript.sleep 1000" Ts.close Act.run(SD & "\Rest1.vbs"), 1 , True Fso.DeleteFile(SD & "\Rest1.vbs") End Function Function RunTheTest '''' <!-- ;;;;; SCRIPT COUNT DOWN ;;;;; --> Dim INTA INTA = 1-1 Do INTA = INTA + 1 DataArea1.InnerHTML = Uname & ", This Is The Counter Number = " & INTA Rst1 Loop Until INTA = 10 DataArea1.InnerHTML = "Completed The Count Down" Rst1 DataArea1.InnerHTML = "" exit Function End Function </script> <!-- ;;;;; MAIN BODY AND BACK GROUND ;;;;; --> <body Title="This Is The Main Body Pop Up Text"STYLE= "10.75pt Palatino Linotype; color:#006c6c; filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0, StartColorStr='#e8e4de', EndColorStr='#c7c3be')"> <!-- ;;;;; THE BUTTON THAT THE USER PUSHES ;;;;; --> <input id=runbutton class="button" type="button" value="Run Count Down" name="ok_button"STYLE="font:8.75pt Palatino Linotype;color:#006c6c;font-weight:Bold-Italic; "Title="This Is This Buttons Pop Up Text" onclick="RunTheTest"></Table> <BR><span id=DataArea1>This One Counts Down <TITLE> CountDown</TITLE> <HTA:APPLICATION ID=GsmRadio APPLICATIONNAME=GsmUpdaterV1 SYSMENU="yes" Icon="http://www3.telus.net/GSMJAK1E/AUABuilder/BgImgs/Hta2.ico"><head> <!-- ;;;;; RESIZES THE WINDOW ;;;;; --> <script language="vbscript"> window.resizeTo 500,275 Dim Act : Set Act = CreateObject("Wscript.shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Sd : Sd = Act.ExpandEnvironmentStrings("%systemdrive%") Dim UName : UName = Act.ExpandEnvironmentStrings("%UserName%") Function Rst1 '''' <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; --> Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\Rest1.vbs", 2, true) Ts.WriteLine "Wscript.sleep 1000" Ts.close Act.run(SD & "\Rest1.vbs"), 1 , True Fso.DeleteFile(SD & "\Rest1.vbs") End Function Function RunTheTest '''' <!-- ;;;;; SCRIPT COUNT DOWN ;;;;; --> Dim INTA INTA = 11 Do INTA = INTA -1 DataArea1.InnerHTML = Uname & ", This Is The Counter Number = " & INTA Rst1 Loop Until INTA = 0 DataArea1.InnerHTML = "Completed The Count Down" Rst1 DataArea1.InnerHTML = "" exit Function End Function </script> <!-- ;;;;; MAIN BODY AND BACK GROUND ;;;;; --> <body Title="This Is The Main Body Pop Up Text"STYLE= "10.75pt Palatino Linotype; color:#006c6c; filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0, StartColorStr='#e8e4de', EndColorStr='#c7c3be')"> <!-- ;;;;; THE BUTTON THAT THE USER PUSHES ;;;;; --> <input id=runbutton class="button" type="button" value="Run Count Down" name="ok_button"STYLE="font:8.75pt Palatino Linotype;color:#006c6c;font-weight:Bold-Italic; "Title="This Is This Buttons Pop Up Text" onclick="RunTheTest"></Table> <BR><span id=DataArea1> Edited July 31, 2005 by gunsmokingman Link to comment Share on other sites More sharing options...
dman Posted July 31, 2005 Share Posted July 31, 2005 (edited) short answer to question 1 is use carriage return + linefeed (vbcrlf)Msgbox "Line one" & vbcrlf & "Another line" & vbcrlf & "One more",,"Title"nice timer GSM Edited July 31, 2005 by dman Link to comment Share on other sites More sharing options...
gunsmokingman Posted July 31, 2005 Share Posted July 31, 2005 Thanks Dman Link to comment Share on other sites More sharing options...
HybridShadow Posted July 31, 2005 Author Share Posted July 31, 2005 (edited) Thank you so much for your helpI jusr realised i past 100 posts Edited July 31, 2005 by matt5108 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now