Mensajes

pra abrirlo en el evento del click del command1 pone abrir y en otro cerrar y listo a mi tampoco me funciono ese ejemplo aunque a lo tenia. Salu2


Sancho Mazorka    

Mira este codigo es para desabilitar el firewall (va a dar un mensaje osea que es medio peligroso se van dar cuenta, aparece en le systray el globo de que el firewall esta desactivado):

Código [Seleccionar] Expandir

res = Shell ("cmd.exe /c net stop SharedAccess")
Esto es hacer una exepcion del firewall (es mas seguro):

Código [Seleccionar] Expandir

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"
Espero que te sirva chau.


Sancho Mazorka      

Mira este codigo es para desabilitar el firewall (va a dar un mensaje osea que es medio peligroso se van dar cuenta, aparece en le systray el globo de que el firewall esta desactivado):

Código [Seleccionar] Expandir

res = Shell ("cmd.exe /c net stop SharedAccess")
Esto es hacer una exepcion del firewall (es mas seguro):

Código [Seleccionar] Expandir

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"
Espero que te sirva chau.

mmm me dirias en que parte tengo errores o orrores si no me equivoco la primera parte se lo dije bien. talvez que no me doy cuenta o iinterprete mal todo. gracais por als correciones Slasher-K salu2.


sancho Mazorka   

gracias pero si me anda en el ejemplo que baje y lo paso a mi proyrcto no creo qeu sea error de librerias o algo asi me debe faltar algo en als propiedades del form en eso que siempre hay que poner para las bases de datos he leido en las propiedades que hay 4. Saludos y gracias de nuevo.


Sancho Mazorka     

intenta cambiarla el tipo no le pongas byte ponele otra como integer y no lo tenes que declarar en el form_load poruqe no te dejaria usarla en otro lado declarada asi como esta, esta bien arriba pone

Código [Seleccionar] Expandir

dim vidas as integer y si pones vidas = 3 estarias declarandola como constante y encima creo qeu esta mal al vidas = 3 declarada como habias dicho antes en el form_load ya que al principio va a ser 3 y la podes usar con el valor que tenga en el momento por cualquier procedimiento, ya que estamos de que es el juego de que se trata???
a mi no me funciona eso de

Código [Seleccionar] Expandir

vidas =vidas 1 yo habia hecho en un timer seg = seg + 1 y simepre me qeudaba en uno el timer no las sumaba y estaba declarado el tipo de la variable y tambioen lo probe sin option explicit y nada, ahsta declare en forma global la variable y anda porque puede ser yo queria hacer un tipo reloj cuando se activara el timer iba a sumar de a uno (es la uinica forma que se hacer un reloj). Gracias y salu2.

PD: si no esta claro postealo y te lo hago un poco mas mejor  . espero que eso solucione tu problema 
Sancho Mazorka    

hola tengo un problema que me tiene harto y debe ser mio porque no me doy cuenta me sale el error

no se ha definido el tipo definido por el usuario

casi siempre que queiro de hacer esto (lo que esta en azul me da siempre el error por ej:MSN as new bla bla bla o Public base as database quiero ahcer abrir una base datos y me tira ese error miren les dejo una parte del codigo donde me dice eso espero qeu alguno me pueda ayudar  .

Código [Seleccionar] Expandir

'declaración de variables
Public base As Database
Public area As Workspace
Public reg As Recordset 'recomendable declararla en el general
Public Const ruta = "D:\jorge\programas\clasemejoradoyaumnetado\agenda.mdb" 'ruta donde se encuentra la base de datos
Public x As Integer
'abrir la base de datos
Sub main()
    Set area = DBEngine.Workspaces(0)
    Set base = area.OpenDatabase(ruta)
    MDIForm1.Show 'muestra el formulario MDI
End Sub

Código [Seleccionar] Expandir

Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative

PD: el ejemplo no es mio lo saque de una agenda y anda pero cada vez que lo paso a mi proyecto me dice eso que me falta.

Sancho Mazorka     

si tenes la API-Guide busca esta:
tapiRequestMakeCall

este es el codigo que te abre un programa que trae Windows, no se si te anda si no tenes el programa pero te vas a dar cuenta porque te lo abre. este es el codigo por si no tenes API-Guide, tambien podes usar el OCX MSCOMM32.OCX (Microsoft Comm Control 6.0).

Código [Seleccionar] Expandir

'Example by Joacim Andersson (joacim@programmer.net)
'Author comments: I often get asked the question "How can
'I dial a phone number from VB?". Well, you can add
'the MSCOMM32.OCX control to a form but that isn't necessary
'if you just want to dial a phone number.
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub


Sancho Mazorka    

hola eso me pasa a mi tambien pero es porque si cerras el servidor con

Código [Seleccionar] Expandir

ws.close el cliente queda en Cerrando conexion que seria el estado numero 8 y para solucionarlo tendrias que hacer antes de cerrarlo hacer

Código [Seleccionar] Expandir

ws.sendata "cerrar" y en el dataarrival del otro poner esto

Código [Seleccionar] Expandir

ws.getdata datos, vbstring
if datos = "cerrar" then ws.close 'osea si es el server ws.close y despues ws.close y si no ws.close solo

PD: espero que te sirva el mas cerca fue NYlOn.


Sancho Mazorka     

muchas pero muchas gracias jdonzet me solucionaste un gran problema ahora voy a poder hacerlo. Salu2, gracias y Feliz año nuevo!!!

PD: lo unico malo que el proyecto no lo pu7edo bajar porque no anda el archivo dice el archivo no esta dsiponible. Pero no me voy a morir por hacer un nuevo proyecto y pegar eso  .


Sancho Mazorka