I need a small SMALL app made

**HybridShadow** · July 24, 2005

All it is, is a simple dialog box that i can reshack the massage to and the title

such as like winzips example program

Title - Example

Text - The is a sample program

but i cant reshack it to change the text because its 16bit

and other small dialog boxes i've found wont show the text they only show the icon in rehacker

Can Anyone help me please

**Fredledingue** · July 30, 2005

???

Do a VBScript...

...or did I miss something?

Copy-paste this code in notepad and save it as Msg.vbs

Msgbox "message",,"Title"

**HybridShadow** · July 31, 2005

I did not know that

Thank you very much

Msgbox "message",,"Title"

Say I wanted

TITLE to be - Whatever

The Text box - BLAHBLAHAHALHAAKDLHD

risdouhgdifohgdiohj

How do i get it to go on the next line

and how do I put weblinks in it? or have a countdown timer is it possible?

Edited July 31, 2005 by matt5108

**gunsmokingman** · July 31, 2005

Save This As CountDown.Hta

This 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>

<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 '''' 
   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 '''' 
   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>

<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')">

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

<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 '''' 
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 '''' 
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>

<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')">

<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

**dman** · July 31, 2005

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

**gunsmokingman** · July 31, 2005

Thanks Dman

**HybridShadow** · July 31, 2005

Thank you so much for your help

I jusr realised i past 100 posts

Edited July 31, 2005 by matt5108

Sign In

I need a small SMALL app made

Recommended Posts

HybridShadow

Fredledingue

HybridShadow

gunsmokingman

dman

gunsmokingman

HybridShadow

Please sign in to comment

Recently Browsing 0 members

Activity

Browse