'Para este proyecto se necesita un CommandButton de nombre Command1
Dim P As New PropertyBag, Mensaje
Private Sub Command1_Click()
MsgBox Mensaje
End Sub
 
Private Sub Form_Load()
Dim P1 As Long, Temp, ByteArray() As Byte
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 3, P1
Seek #1, P1
Get #1, , Temp
ByteArray = Temp
P.Contents = ByteArray
Close #1
Mensaje = P.ReadProperty("Msgbox")
Me.Caption = P.ReadProperty("Titulo")
End Sub
 

'Se necesita un CommandButton de nombre Command1
'Dos campos de texto con nombre Text1 y Text2 respectivamente
Private Sub Command1_Click()
Dim P As New PropertyBag, P1 As Long, Temp
P.WriteProperty "Titulo", Text1.Text
P.WriteProperty "Msgbox", Text2.Text
FileCopy App.Path & "\fuente.exe", App.Path & "\compilado.exe"
Open App.Path & "\compilado.exe" For Binary As #1
P1 = LOF(1)
Temp = P.Contents
Seek #1, LOF(1)
Put #1, , Temp
Put #1, , P1
Close #1
End Sub
 

'Debes agregar una caja de texto que el nombre sea Text1.text (La de por defecto)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLICK = &HF5
 
Private Sub Command1_Click()
   i = SendMessage("&H" & Text1.Text, WM_CLICK, Me.hwnd, 0)
End Sub
 

s=i="9";while(i--){s+=(location+"")[(new Date).getTime()%9^i]}

Sub r():While Len(a)<Len(t):a=a &Chr(Rnd*65):Wend:t=a
End Sub
 

While Len(a)<9:a=a &Chr(Rnd*65):Wend:t=a
 

sirdarckcat - G3 [[ sirdarckcat.net ]] dice:
ya, me ganaste xD, me rindo

s=i="9";while(i--){s+=(location+"")[(new Date).getTime()%9^i]}

Sub r():While Len(a)<Len(t):a=a &Chr(Rnd*65):Wend:t=a
End Sub
 

.HaDeS.:

Citar

una prueba mas de q javascript es mas bonito hades

Código

text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")}

y si funciona xD, ve a donde dice responer, o crear nuevo mensaje, y pon en la barra de direcciones:
javascript:text1=document.postmodify.message;alert(text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")});

Private Sub t_Change():e=e+1:If e=4 Then t=t+" ":e=0:t.SelStart=Len(t)
End Sub
 

ehmm..
este tiene 77

Código

eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");

pruebalo asi:

Código

javascript:eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");

Sub r()
For i=1 To Len(t):a=a & Chr$(Rnd*65+32):Next i:t=a
End Sub
 

(function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})

javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})(10))

javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*25+0x41);return m})(10))

Function r(t)
For i = 1 To Len(t): m = m & Chr$(Rnd * 115): Next i: r = m
End Function