• Viernes 8 de Noviembre de 2024, 11:48

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.


Mensajes - Nuker

Páginas: [1]
1
Visual Basic para principiantes / Re: Insertan Imagen Desde Vb A Mysql
« en: Miércoles 4 de Abril de 2007, 06:19 »
Si o si en la base de datos tenes q meterla? porque no guardas la direccion de en donde esta la foto(?)  :D

2
Visual Basic para principiantes / Re: Analizando Textos (jojo)
« en: Domingo 1 de Abril de 2007, 08:53 »
uh, anda perfecto, pero si lo uso en una funcion tira error y no tengo idea como solucioanrlo O.o es medio fruta me parece...

Error '5' en tiempo de ejecución:
Llamada a procedimiento o argumento no válidos


Código: Text
  1.  
  2. Public Function WinsockGet(pSock As Winsock, ByVal Data As String)
  3.  
  4. If pSock.State = sckConnected Then
  5.  
  6. pSock.GetData Data
  7. DoEvents
  8. WinsockGet = True
  9. Dim Data
  10.  
  11.    Dim strA 'As String
  12.    Dim strB As String
  13.    Dim lngX As Long
  14.    strA = Data
  15.  
  16.  
  17.  
  18. Do While parar = 0
  19.  
  20. If status = "Host" Then
  21.  
  22.    strB = "changeteam"
  23.    lngX = InStr(strA, strB)
  24.   
  25. If Not lngX = "0" Then
  26. Dim changeteamvalor
  27. If Check1.Value = "1" Then
  28. changeteamvalor = "1"
  29. Else
  30. changeteamvalor = "0"
  31. End If
  32. changeteamvalor = "changeT " & changeteamvalor
  33. pSock.SendData (changeteamvalor)
  34. Data = Mid$(strA, 1, lngX - 1) & Mid$(strA, lngX + 10, lngX)
  35. Else
  36. parar = 1
  37. End If
  38. End If
  39.  
  40. Loop
  41. parar = 0
  42.  
  43.  
  44.  
  45.  
  46. Else
  47.  
  48. WinsockGet = False
  49. End If
  50. End Function
  51.  
  52.  




_______________________________________


Solucionado, encontre el problema, lo posteo por si a alguno el pasa lo mismo.

el winsock al conectarmele, tiene la variable Data vacia, asi q antes de andar analizandole lo que dice le puse un...
if Data = vbnullstring then
exit function
WinsockGet = False
end if

3
Visual Basic para principiantes / Re: Analizando Textos (jojo)
« en: Domingo 1 de Abril de 2007, 07:38 »
:lol:  ahhhhhhhhhhhh aeaeaeaeeaeaeaeaa  :hola:  q felizzzz xD


Muchas graciasssssssss

Código: Text
  1.  
  2.    Dim strA As String
  3.    Dim strB As String
  4.    Dim lngX As Long
  5.    strA = "holacomoandascomenzarprobando123456789"
  6.    strB = "probando"
  7.    lngX = InStr(strA, strB)
  8.    Text1.Text = Mid$(strA, 1, lngX - 1) & Mid$(strA, lngX + 8, lngX)
  9.  
  10.  

4
Visual Basic para principiantes / Re: Winsock
« en: Domingo 1 de Abril de 2007, 05:24 »
Agrega en un formulario el componente Microsoft Winsock control 6.0

crea un winsock llamado "Winsock1"

agrega un boton (command1) en caption q diga HOSTEAR, mete otro abajo (command2) llamado CONECTARSE alado ponele un textbox llamado text3

pone un timer llamado timer1


mas abajo pone un textbox gigante llamado Text1 y en la opcion Multiline ponele True

mas abajo pone un textbox llamado Text2 y alado un command buton llamado command3


apreta Inicio, panel de control Firewall de windows, Agregar Puerto (TCP) Puerto "77".

espero q te funcione  :P



'CODIGO (Cliente)

Private Sub Command1_Click()
Winsock1.LocalPort = 77
Winsock1.Listen
End Sub

Public Function WinsockSend(pSock As Winsock, ByVal Data As String)
' send the data on the passed winsock
If pSock.State = sckConnected Then
' send the data and return true
pSock.SendData Data
DoEvents
WinsockSend = True
Else
' return false because we're not connected
WinsockSend = False
End If
End Function

Public Function WinsockGet(pSock As Winsock, ByVal Data As String)
' send the data on the passed winsock
If pSock.State = sckConnected Then
' send the data and return true
pSock.GetData Data
DoEvents
WinsockGet = True
If Not Data = vbNullString Then
Text1.Text = Text1.Text & Chr(13) + Chr(10) & Data
End If
Else
' return false because we're not connected
WinsockGet = False
End If
End Function

Private Sub Command3_Click()
blnRetVal = WinsockSend(Winsock1, Text2.Text)
End Sub


Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
blnRetVal = WinsockGet(Winsock1, strData)
End Sub

Private Sub Winsock1_Connect()
MsgBox "Connected"
End Sub

Private Sub Command2_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = 77
Winsock1.Connect
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Error: " & Description
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal RequestID As Long)
Winsock1.Close
Winsock1.Accept RequestID
End Sub

5
Visual Basic para principiantes / Re: Api's Para El Control Del Puntero Del Raton
« en: Domingo 1 de Abril de 2007, 05:13 »
aja! alto BOT te estas haciendo AJAJJAJA

bueno, yo hice uno hace tiempo para un juego, te digo lo q me acuerdo porque el codigo lo perdi en un formateo

para mandar teclas... tenes q poner

SendKeys "{enter}" 'ese seria un enter
SendKeys "{tab}" ' esa seria la tecla tab


_______________________________________

bueno la verdad 0 memoria de como hacer un click asi q te lo busque... toma:


______________________________________________________

---En un módulo
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Private Declare Function PostMessageBynum Lib "user32" Alias "PostMessageA" _
            (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam _
            As Long) As Long 'enviar mensajes al control
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal _
             Y As Long) As Long 'posicionar el puntero del ratón
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
            lpRect As RECT) As Long 'obtener la posición del control
Private Type RECT
         Left As Long
         Top As Long
         Right As Long
         Bottom As Long
End Type

'----- ahora el proceso :
Dim l As Long, PosX As Long, PosY As Long, PosXY As Long
Dim lpRect As RECT

'conocer las posición del botón relativa a la pantalla, en pixels
l = GetWindowRect(Command1.hwnd, lpRect)
'colocar el ratón sobre el centro del botón
PosX = lpRect.Left + ((lpRect.Right - lpRect.Left) / 2)
PosY = lpRect.Top + ((lpRect.Bottom - lpRect.Top) / 2)
l = SetCursorPos(PosX, PosY)
'obtener la posicion del centro del control relativa al propio control,
'en pixels
'no es obligatorio, es para que las coordenadas recibidas en el mousedown
'del control sean coherentes
'la posicion y va en la palabra alta y la x en la baja
PosXY = (PosY - lpRect.Top) * 65536 + (PosX - lpRect.Left)
'simular el click del ratón
l = PostMessageBynum(Command1.hwnd, WM_LBUTTONDOWN, 0&, PosXY)
l = PostMessageBynum(Command1.hwnd, WM_LBUTTONUP, 0&, PosXY)

'FIN! :P

6
Visual Basic para principiantes / Re: Analizando Textos (jojo)
« en: Domingo 1 de Abril de 2007, 05:03 »
:lol:  wow, me esta gustando este foro, q rapido me ayudaron!  :)  Muchas gracias!!!!


lo estube mirando y me quedo algo en el tintero, aprobecho a postearlo aca, asi no hay tantos post.


Si tengo en una variable "holacomoandasprobando12345678"

y yo analize de ahi probando, como le quitaria a esa variable el probando?

osea tengo esto: "holacomoandasprobando12345678" y quiero q quede asi

holacomoandas12345678

Muchas gracias

7
Visual Basic para principiantes / Analizando Textos (jojo)
« en: Domingo 1 de Abril de 2007, 02:04 »
:o Hola, necesito saber como analizar texto.. osea...

si yo en una variable tengo esto:

"holacomoandascomenzarprobando123456789"

quiero saber si ahi en ese texto dice... "probando" y si lo dice, como obtener los 4 caracteres siguientes a "probando"


Muchas gracias

Páginas: [1]