|
Mostrar Mensajes
|
Páginas: [1] 2 3 4 5 6 7 8
|
2
|
Programación / Programación Visual Basic / Re: [HELP] Invoke API's
|
en: 24 Noviembre 2012, 17:14 pm
|
I think you are so lazy, You At least should come here with some doubt. But you always are here as if the people here work for you. can someone make me a FUD, can someone make my work for me, then go to my house and help me with my wife, maybe someone can bring me money. maybe can go to my work for me. also make my homework. I did try mane but the thing is that it would take me too much time to debug this as I would need to test each param by each param which would be too long so I wondered if there was someone open to help but you doesn't seem to! Its OK man if you don't wanna help just leave the thread A forum is to ask help no? I'm just asking for some help nothing more...
|
|
|
3
|
Programación / Programación Visual Basic / [HELP] Invoke API's
|
en: 24 Noviembre 2012, 05:34 am
|
Hola amigos! Can anyone please Invoke(CallAPI) those API's please? Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean 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 nService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal nFlags As Long) As Long Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Declare Function InternetOpenUrlA Lib "wininet" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Const INTERNET_SERVICE_FTP = 1: Global sURL As String
Function FTPUpload(sFile As String, sHost As String, sUser As String, sPass As String) Dim hINetSession, hSession, sTemp() As String: sTemp = Split(sFile, "\") hINetSession = InternetOpen("project", 0, vbNullString, vbNullString, 0) hSession = InternetConnect(hINetSession, sHost, "21", sUser, sPass, INTERNET_SERVICE_FTP, 0, 0) If FtpPutFile(hSession, sFile, sTemp(UBound(sTemp)), 1, 0) = False Then Call InternetCloseHandle(hSession): Call InternetCloseHandle(hINetSession) End If End Function Option Explicit
Private Const MICROSOFT_CDO_CONFIGURATION$ = "http://schemas.microsoft.com/cdo/configuration/"
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private lngPort&, strUser$, strPass$, strFrom$, strServer$, strSubject$, strMessage$, strDestinatary$, strAttachedFile$ Private objCDO As Object, bolUseAuntentificacion As Boolean, bolSSL As Boolean
Friend Property Let Server(ByRef Value$): strServer = Value: End Property Friend Property Let Destinatary(ByRef Value$): strDestinatary = Value: End Property Friend Property Let From(ByRef Value$): strFrom = Value: End Property Friend Property Let Subject(ByRef Value$): strSubject = Value: End Property Friend Property Let Message(ByRef Value$): strMessage = Value: End Property Friend Property Let AttachedFile(ByRef Value$): strAttachedFile = Value: End Property Friend Property Let Port(ByVal Value&): lngPort = Value: End Property Friend Property Let User(ByRef Value$): strUser = Value: End Property Friend Property Let Password(ByRef Value$): strPass = Value: End Property Friend Property Let UseAuntentificacion(ByVal Value As Boolean): bolUseAuntentificacion = Value: End Property Friend Property Let SSL(ByVal Value As Boolean): bolSSL = Value: End Property
Friend Function SendMail() As Boolean On Error GoTo FatalError If InternetGetConnectedState(&H0&, &H0&) Then If (LenB(strPass) = 0) Or (LenB(strUser) = 0) Or (LenB(strFrom) = 0) Or (LenB(strServer) = 0) Or (LenB(strDestinatary) = 0) Or ((lngPort < 0) Or (lngPort > &HFDE8&)) Then Exit Function With objCDO With .Configuration .Fields(MICROSOFT_CDO_CONFIGURATION & "smtpserver") = strServer .Fields(MICROSOFT_CDO_CONFIGURATION & "sendusing") = &H2& With .Fields .Item(MICROSOFT_CDO_CONFIGURATION & "smtpserverport") = lngPort .Item(MICROSOFT_CDO_CONFIGURATION & "smtpauthenticate") = Abs(bolUseAuntentificacion) .Item(MICROSOFT_CDO_CONFIGURATION & "smtpconnectiontimeout") = &HA& If bolUseAuntentificacion Then .Item(MICROSOFT_CDO_CONFIGURATION & "sendusername") = strUser .Item(MICROSOFT_CDO_CONFIGURATION & "sendpassword") = strPass .Item(MICROSOFT_CDO_CONFIGURATION & "smtpusessl") = bolSSL End If .Update End With End With .To = strDestinatary: .From = strFrom: .Subject = strSubject: .TextBody = strMessage If LenB(strAttachedFile) Then If GetFileAttributesW(StrPtr(strAttachedFile)) > -1 Then .AddAttachment (strAttachedFile) End If .Send End With SendMail = True End If FatalError: End Function
Private Sub Class_Initialize() Set objCDO = CreateObject("CDO.Message") End Sub
Private Sub Class_Terminate() Set objCDO = Nothing End Sub Thanks A lot!
|
|
|
4
|
Programación / Programación Visual Basic / Re: VB6 DropBox Uploader
|
en: 14 Noviembre 2012, 20:37 pm
|
many people is able. but none work for you.
at least try make something, show the code that you have till now.
Its huge work for not much interest m8 that's why I'm asking here :/ I haven't done any research yet but if nobody can help I'll do it I just ask if someone did it or would do it...
|
|
|
7
|
Programación / Programación Visual Basic / Re: Build VB Resource File Manually
|
en: 11 Noviembre 2012, 12:51 pm
|
That's the idea. Once you understand how the format is and works, you can create the code to handle it.
I'm thinking to make the Resource File manually and adding the resource from VB code to the RES file, is that possible you think? Ive tried once it didnt work but I probably did something wrong on the code
|
|
|
|
|
|
|