1
Visual Basic 6 / Re:NokilonServer
« en: Abril 05, 2022, 08:25:18 pm »
Your code is very good. Just a little complicated for me, especially with winsock api.thanks
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Páginas: [1] 2
2
Visual Basic 6 / Re:NokilonServer
« en: Abril 05, 2022, 01:28:51 am »Código: [Seleccionar]
If LenB(Args) Then
Select Case Args
Case "-a .", "-a": Args = vbNullString
Case Else
If Left$(Args, 3) = "-a " Then Args = Right$(Args, Len(Args) - 3)
Args = Replace$(Args, "\", "")
Args = mvParseLocalPath(Args)
If Not PathExist(Args) Then
Send "450 Invalid file name or path"
If SOCKET_DATA Then RemoveSH SOCKET_DATA
Exit Sub
End If
End Selectdebug.print
Args="-l" so this may be error.
2.
Código: [Seleccionar]
Public Sub PutIcon32Bit(ByVal hWnd As Long, ResIcon As Variant)
Dim hicon As Long
hicon = LoadImage(App.hInstance, ResIcon, 1, 32 * mdpi_, 32 * mdpi_, &H8000& Or &H1000)
If hicon Then DestroyIcon SendMessage(hWnd, &H80, 1, ByVal hicon)
hicon = LoadImage(App.hInstance, ResIcon, 1, 16 * mdpi_, 16 * mdpi_, &H8000& Or &H1000)
If hicon Then DestroyIcon SendMessage(hWnd, &H80, 0, ByVal hicon)
' Const ICON_BIG As Long = 1
' Const ICON_SMALL As Long = 0
' Const WM_SETICON As Long = &H80
' hIcon = LoadIcon(App.hInstance, ResIcon)
' Call SendMessage(hWnd, &H80, 1, ByVal hIcon)
' Call SendMessage(hWnd, &H80, 0, ByVal hIcon)
' Call DestroyIcon(hIcon)
End Submay be ?
in my win10 hicon will=0 then
show black icon
3.i konw must used ftp client to test .not used ie or Chrome test
4.
Código: [Seleccionar]
With CDS
.lData = SEND_DATA
Dim arrData() As Byte
arrData = StrConv(data, vbFromUnicode)
'.lSize = LenB(data)
'.lPtr = StrPtr(data)
.lSize = UBound(arrData) + 1
.lPtr = VarPtr(arrData(0))
End WithCódigo: [Seleccionar]
Case WM_COPYDATA
Dim CDS As COPYDATASTRUCT
Dim sReply As String
Call CopyMemory(CDS, ByVal lParam, Len(CDS))
Dim arrBuffer() As Byte
Call CopyMemory(CDS, ByVal lParam, Len(CDS))
ReDim arrBuffer(CDS.lSize - 1)
Call CopyMemory(arrBuffer(0), ByVal CDS.lPtr, CDS.lSize)
tmp = StrConv(arrBuffer(), vbUnicode)
'tmp = String(CDS.lSize, 0)
'Call CopyMemory(VarPtr(tmpA(0)), ByVal CDS.lPtr, CDS.lSize)
'tmp = StrConv(tmpA, vbFromUnicode)
Select Case CDS.lData
Case SEND_DATA
RaiseEvent Arrival(tmp, wParam, hWinText(wParam), sReply)
If Len(sReply) Then
Dim arrData() As Byte
arrData = StrConv(sReply, vbFromUnicode)
CDS.lData = REPLY_DATA
'.lSize = LenB(data)
'.lPtr = StrPtr(data)
CDS.lSize = UBound(arrData) + 1
CDS.lPtr = VarPtr(arrData(0))
'CDS.lData = REPLY_DATA
'CDS.lSize = LenB(sReply)
'CDS.lPtr = StrPtr(sReply)
If SendMessage(wParam, WM_COPYDATA, m_hwnd, CDS) = READED_REPLY Then lReturn = READ_CONTENT
End If
Case REPLY_DATA
m_StrData = tmp
lReturn = READED_REPLY
End Select
4
Visual Basic 6 / Re:NokilonServer
« en: Abril 04, 2022, 03:00:31 am »
13:59:32 - [xxdoc] TYPE I
13:59:32 - [xxdoc] 200 Type set to I
13:59:32 - [xxdoc] SIZE /
13:59:35 - [xxdoc] 550 File not found ------why
13:59:35 - [xxdoc] CWD /
13:59:35 - [xxdoc] 250 CWD successful
13:59:35 - [xxdoc] PASV
13:59:35 - [xxdoc] 227 Entering Passive Mode (192,168,166,210,7,208)
13:59:35 - [xxdoc] LIST -l
13:59:37 - [xxdoc] 450 Invalid file name or path
13:59:37 - [xxdoc] QUIT
13:59:37 - [xxdoc] 221 Goodbye
13:59:32 - [xxdoc] 200 Type set to I
13:59:32 - [xxdoc] SIZE /
13:59:35 - [xxdoc] 550 File not found ------why
13:59:35 - [xxdoc] CWD /
13:59:35 - [xxdoc] 250 CWD successful
13:59:35 - [xxdoc] PASV
13:59:35 - [xxdoc] 227 Entering Passive Mode (192,168,166,210,7,208)
13:59:35 - [xxdoc] LIST -l
13:59:37 - [xxdoc] 450 Invalid file name or path
13:59:37 - [xxdoc] QUIT
13:59:37 - [xxdoc] 221 Goodbye
5
Códigos - Aportes - Recursos / Re:Codigo fuente Puzzle
« en: Febrero 13, 2021, 10:33:56 pm »
Looks good, there is a test version
6
Visual Basic 6 / Re:JGrid - Reemplazo a ListView
« en: Mayo 03, 2020, 07:35:16 am »
Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, ByVal lColorRef As Long) As Long
Private Declare Function OleTranslateColor2 Lib "olepro32.dll" Alias "OleTranslateColor" _
(ByVal OLE_COLOR As Long, _
ByVal hPalette As Long, _
pccolorref As Long) As Long
'''''''FIX IF select systemcolor
If m_Striped And lRow Mod 2 Then
Dim clrref As OLE_COLOR
OleTranslateColor2 m_StripedColor, 0, clrref
DrawBack uDC, clrref, iRct
End If
Private Declare Function OleTranslateColor2 Lib "olepro32.dll" Alias "OleTranslateColor" _
(ByVal OLE_COLOR As Long, _
ByVal hPalette As Long, _
pccolorref As Long) As Long
'''''''FIX IF select systemcolor
If m_Striped And lRow Mod 2 Then
Dim clrref As OLE_COLOR
OleTranslateColor2 m_StripedColor, 0, clrref
DrawBack uDC, clrref, iRct
End If
7
Visual Basic 6 / Re:JLauncher - Codigo fuente
« en: Mayo 01, 2020, 10:28:11 am »
jlauncher.dll
How the resource dll is made
thanks
How the resource dll is made
thanks
8
Visual Basic 6 / Re:Borde con RoundRect no cambia color en tiempo de ejecución
« en: Agosto 02, 2018, 11:30:47 pm »
have many bugs
Private Sub txtRaiz_Change()
If txtRaiz.text <> "txtRaiz" Then
RaiseEvent Change
End If
End Sub
Public Property Get Value() As Double
Dim sValue As Variant, i As Integer
Dim sValor As String
sValor = txtRaiz.text
If FormatToString = Money Then
'Limpio Simbolo moneda y Puntos
For i = 1 To Len(sValor)
If Not Mid$(sValor, i, 1) = "$" And Not Mid$(sValor, i, 1) = "." And Not Mid$(sValor, i, 1) = "%" Then
sValue = Trim$(sValue & Mid$(sValor, i, 1))
End If
Next i
ElseIf FormatToString = Percent Then
'Limpio Simbolo Porcentaje
If IsNumeric(sValor) Then
sValue = (sValor) / 100
End If
ElseIf FormatToString = ChileanRUT Then
'Limpio Gui髇 y Letras
For i = 1 To Len(sValor)
If IsNumeric(Mid$(sValor, i, 1)) = True Then
sValue = sValue & Mid$(sValor, i, 1)
End If
Next i
Else
'Cuento caracteres
sValue = Len(txtRaiz.text)
End If
Value = sValue
End Property
Private Sub txtRaiz_Change()
If txtRaiz.text <> "txtRaiz" Then
RaiseEvent Change
End If
End Sub
Public Property Get Value() As Double
Dim sValue As Variant, i As Integer
Dim sValor As String
sValor = txtRaiz.text
If FormatToString = Money Then
'Limpio Simbolo moneda y Puntos
For i = 1 To Len(sValor)
If Not Mid$(sValor, i, 1) = "$" And Not Mid$(sValor, i, 1) = "." And Not Mid$(sValor, i, 1) = "%" Then
sValue = Trim$(sValue & Mid$(sValor, i, 1))
End If
Next i
ElseIf FormatToString = Percent Then
'Limpio Simbolo Porcentaje
If IsNumeric(sValor) Then
sValue = (sValor) / 100
End If
ElseIf FormatToString = ChileanRUT Then
'Limpio Gui髇 y Letras
For i = 1 To Len(sValor)
If IsNumeric(Mid$(sValor, i, 1)) = True Then
sValue = sValue & Mid$(sValor, i, 1)
End If
Next i
Else
'Cuento caracteres
sValue = Len(txtRaiz.text)
End If
Value = sValue
End Property
9
Visual Basic 6 / Re:how can tell me why,and fixed?
« en: Septiembre 18, 2016, 01:22:17 am »
i test the project in winxp sp3, is work fine,but if i change another computer with system win7. sever can not receive the data from client .why?
any boys ,can have test in sytem win7.have the same qusestion??
thanks every one who can request and answer for me.
any boys ,can have test in sytem win7.have the same qusestion??
thanks every one who can request and answer for me.
10
Visual Basic 6 / how can tell me why,and fixed?
« en: Septiembre 16, 2016, 04:22:45 am »
i have download this url project for test winsock send data
http://leandroascierto.com/blog/winsock32/
client and sever can run good , sever can't receive the data from client ,but cient can receive the data form sever.
.i used system7 chinese 32..i debug if client sent data, find in the sever project
uMsg = 28 not WINSOCK_MESSAGE .why .can you fix it
http://leandroascierto.com/blog/winsock32/
client and sever can run good , sever can't receive the data from client ,but cient can receive the data form sever.
.i used system7 chinese 32..i debug if client sent data, find in the sever project
uMsg = 28 not WINSOCK_MESSAGE .why .can you fix it
11
Visual Basic 6 / Re:obtener los datos de un número de RUC desde la pagina de la SUNAT?
« en: Agosto 27, 2016, 04:21:04 am »Regalo, consulta ruc sin captcha Aqui demo https://www.youtube.com/watch?v=BlB8f9jkz3Y
Descarga Aqui http://www.mediafire.com/download/89w2t8k28fh5k24/Consulta+RUC+2016%283%29.rar
can you give me the sourcecode? thanks
12
Visual Basic 6 / Re:Mapa Interactivo
« en: Junio 01, 2016, 11:50:34 pm »I have a problem want you help me
see picturs
hao can i do this if i want change svg ， x or y ，so that my picturbox can show all image
can you tell me svg x or y ，and picturebox x or y have some differents？
ok i have konw why。
i have not see this function 。 “.Transform 0, 0, 1” if change this function，may be goo d
thanks
13
Visual Basic 6 / Re:Mapa Interactivo
« en: Junio 01, 2016, 10:55:21 pm »
I have a problem want you help me
see picturs
hao can i do this if i want change svg ， x or y ，so that my picturbox can show all image
can you tell me svg x or y ，and picturebox x or y have some differents？
see picturs
hao can i do this if i want change svg ， x or y ，so that my picturbox can show all image
can you tell me svg x or y ，and picturebox x or y have some differents？
14
Visual Basic 6 / Re:Mapa Interactivo
« en: Junio 01, 2016, 10:53:10 pm »
I have a problem want you help me
see picturs
hao can i do this if i want change svg ， x or y ，so that my picturbox can show all image
can you tell me svg x or y ，and picturebox x or y have some differents？
see picturs
hao can i do this if i want change svg ， x or y ，so that my picturbox can show all image
can you tell me svg x or y ，and picturebox x or y have some differents？
15
Códigos - Aportes - Recursos / Re:clsHttpRequests: Clase que envia Requests de forma asincronica con threads (r6)
« en: Abril 20, 2016, 01:02:55 am »Buenas a todos!
version: REVISION 6 (21/febrero/14)!!!!
El martes me surgio la idea de enviar un HTTP POST de forma asincronica, y no encontre nada piola.
Hablando con Cobein se me ocurrio el de utilizar un codigo que use el HttpCreateRequest y HttpSendRequest, pero que la llamada bloqueante (HttpSendRequest) se haga en un thread aparte.
Ahora, la magia reside en que la parte "heavy" se hace en VB, mientras que en el thread solo se hace la llamada a HttpSendRequest y a SendMessageTimeout (para avisarle al thread 'main' que ya termino la ejecucion).
El codigo del thread esta hecho 100% en assembly (ver asm.asm). En dicho archivo, se ven unos pushs y unos llamados a cualquier lugar (fuera de joda, lo hice aproposito). La gracia de eso, es que el codigo en VB va a parchear eso, con llamadas a direcciones validas (la del HttpSendRequest y SendMessageTimeout), como asi tambien, reemplazar las "constantes" del hWnd de la ventana, y el uMsg custom. (la clase crea una ventana oculta para recibir los mensajes del thread, y el mensaje es uno custom, creado con RegisterWindowMessage).
La logica es sencilla. Se llama a la funcion SendRequest o SendRequest_OptionalAsByte con todos los parametros, inclusive el "private key", que seria un string para identificar los eventos (la diferencia radica en que la primera, el parametro opcional lpOptional es interpretado en base a un string, y en la segunda, es un array de bytes y precisa que se le pase el tamaño del mismo).
Tambien hay un parametro de Timeout.
Los demas parametros conforman a los que uno usaria al llamar a InternetConnect y HttpCreateRequest.
Hay varias enums de flags y demas, para usar en esas llamadas, o en QueryInfoAsXXXXX (puede ser AsLong, AsDate, AsString).
QueryInfoAsXXXX consulta algun parametro dentro del header y lo devuelve, segun el formato elegido (leer el msdn para saber si usar Long, Date o String). La funcion acomoda el tamaño del string automaticamente.
Luego quedan las funciones DumpRequestToBuffer, DumpRequestToString y DumpRequestToFile (todas estas leen el resultado del Request, y lo devuelven de maneras distintas).
Tambien hay una funcion mas, CancelRequest, la cual se podria llamar para cancelar un Request que se esta ejecutando.
Eventos: RequestDone (cuando HttpSendRequest termina), RequestCancelled (cuando es cancelado por el usuario), RequestTimeout (cuando hay timeout)
En el ejemplo hay 3 botones.
1º Descarga el google a googlex.html
2º Descarga 10 veces el google a google_xx.html
3º Envia un POST a un php en un host mio, que solamente devuelve el parametro "q"
- rev1: Ahora la cantidad maxima de request esta limitada (para prevenir arrays locks); Se volo a la mierda el PostMessage y se reemplazo por el
SendMessageTimeout (espera hasta que el thread main le responda); Se corrigieron unos leaks de handles (faltaba cerrar el hRequest)- rev2: Se corrigio el leak de handles (no se cerraba el objeto thread)
- rev3: Se agrego la opcion de "Esperar a que terminen todos los threads". Esto es importante, porque antes se deallocaba la memoria de los threads, y si estos aun estaban activos, iba a surgir un error de "Memory access violation". Ademas le agregue el evento del WM_TIMER, que me lo habia olvidado y no estaba funcionando la parte del timeout.
- rev4: Se agrego el soporte para SSL y Proxy. Se removieron muchos parametros y ahora solo se pasa una URL. Ahora en los eventos aparece el LastError del thread, el cual indica porque fallo el API. El "esperar a que los threads terminen" es una propiedad que puede ser cambiada en runtime (en IDE es 100% necesario!!!).
- rev5: Se arreglo DumpRequestToString y DumpRequestToBufer, el cual escribia en un pedazo de memoria que no correspondia.
- rev6: Se modificaron algunos eventos y propiedades para que el control se parezca mas al WinHTTP. Se agregó toda la logica de InternetReadFile en el thread, de forma que el thread de VB no se bloquea mas (ya que InternetReadFile bloquea).
(el link siempre es el mismo para LA ULTIMA VERSION)
DESCARGAR rev6
Cualquier cosa los escucho...
Saludos!!!
maybe,i want ask can used cookie?and management cookie?
Páginas: [1] 2