si básicamente es eso ,solo que le quiero meter algo + ,para ayudar y hacerlo mas facil etc...
Salu2

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Text1.MaxLength = 150
Label1.Caption = Str(Text1.MaxLength)
End Sub
Private Sub Text1_Change()
Label1.Caption = Int(Text1.MaxLength) - Int(Len(Text1.Text))
End Sub
dim data as string
Open App.Path & "\config.ini" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)
Dim data As String: data = "<BlackD Logger configuration>" & vbCrLf & _
"Account=0000000" & vbCrLf & _
"Password=0000001"
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)
Cita de: Ing_Amc en 26 Noviembre 2006, 04:20 AMSeria como un tipo de programa en C por ejemplo pones echo "Hola"; y en la pantalla del cmd se imprime hola, es muy útil para exploit y demás.
¿como es eso de "Compilar el código php en un EXE"?
Cita de: Ing_Amc en 26 Noviembre 2006, 04:20 AMVoy a leer primero mas o menos como funcionan y luego aver si las pongo
También podrías incluir algunas clases ya hechas (ver post) y hacer un poco más dinámica la cuestión, por ejemplo incluir phpmailer, que el programa te pregunte por las opciones del mismo como podría ser el destinatario, el body, el asunto, etc..
Cita de: Ing_Amc en 26 Noviembre 2006, 04:20 AMSolo e puesto 4 Cosas: <?php ?>,echo("");, include("");,IF, un pequeño ejemplo de como conectar a una BD MYSQL.
¿como es eso de "Compilar el código php en un EXE"?
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Function BarHerr() As Long
On Error Resume Next
Dim udtRect As RECT, lRet As Long, lHWND As Long
lHWND = FindWindow("Shell_TrayWnd", vbNullString)
lRet = GetWindowRect(lHWND, udtRect)
BarHerr = (udtRect.Bottom - udtRect.Top) * Screen.TwipsPerPixelY
End Function
Private Sub Form_Load()
Me.Top = Screen.Height - (Me.Height + BarHerr)
End Sub