Mensajes

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

WebBrowser1.Navigate "http://game1-softnyx.ktics.co.kr/GIS/full/GunBound_GIS_WC_091208_Ver837.exe"
While WebBrowser1.ReadyState <> 4: DoEvents: Wend
End

End Sub




[Aclaracion]

Aclaracion: antes del probable baneo (ya que ranslsad ha dejado esto muy expueto), la falta de respeto, a mi entender es de quien hace una pregunta en ingles en un foro en español (o Viceversa), no respeta el idioma y a los integrantes del foro que no lo entienden, es tanta molestia intentar traducir la pregunta?. Por ultimo, muero pero con la mia en caso que me toque el baneo de por "por vida" como pide ranslsad.

Saludos al foro y adios mundo cruel... pum

Yo.. si fuera el admin te baneoi para siempre..
Falta de respeto innecesaria proque seguro, me apuesto la cabeza
que alguna vez en tu vida has accedido a algun foro en ingles y te han ayudado,
o utilizas utilidades en ingles (Ejemplo: Visual Basic)

Salu2

Ranslsad

English please, I do not deal the Spanish

[concepto]

Hola Black, el concepto del source me parece bueno, luego cada uno modificará a su manera el mismo

por otro lado (y ya que viene al caso) mid no es siempre una funcion, a veces es una sentencia, Black por ejemplo lo utiliza de las dos maneras

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()

 Dim cadena As String: cadena = "1234567890"

 MsgBox cadena, , "cadena"

 MsgBox Mid(cadena, 4, 2), , "Mid funcion =  Mid(cadena, 4, 2)"

 If Mid(cadena, 4, 2) = "45" Then Mid(cadena, 4, 2) = "xx"
 
 MsgBox cadena, , "Mid sentencia  = Mid(cadena, 4, 2) = ""xx"""
 
 End

End Sub  




Por ultimo una duda , tambien se produce esa "conversion innecesaria" si cadena en este ultimo caso o CharData en el code de Black ya estan declaradas como string ???

Código [Seleccionar] Expandir




Private Sub Text1_Change()
  Text1 = Replace(Text1, ",", ".")
End Sub

Private Sub Text2_Change()
Text2 = Replace(Text2, ",", ".")
End Sub




Una tercer opcion seria WMI, pero a veces sirve y a veces not

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True: Me.Height = 6045: Me.Width = 4300
LoadControl
End Sub

Sub LoadControl()
 If WMI_disponible() Then
   'Me.Print "TU SISTEMA TIENE WMI", vbOKOnly + vbInformation, "WMI"
   getWMI_Info
 Else
   Me.Print "TU SISTEMA NO TIENE WMI", vbOKOnly + vbExclamation, "WMI"
 End If
End Sub

Public Function WMI_disponible() As Boolean
Dim WMI As Object
On Error Resume Next
Set WMI = GetObject("winmgmts:")
WMI_disponible = (Err.Number = 0)
End Function

Private Sub getWMI_Info()

Dim oAdapters As Object
Dim oAdapter As Object
On Error GoTo Fehler_WMI

Me.Print "----------------------------------------------------------------------------------------------"

Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

Dim ctlip1 As String: Dim ctlip2 As String

For Each oAdapter In oAdapters
 With oAdapter
   'Me.Cls '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   If Join(.IPAddress) <> ctlip1 Then
       Me.Print "NOMBRE:" & vbTab & vbTab & vbTab & Environ$("computername")
       Me.Print "DIRECCION IP:" & vbTab & vbTab & vbTab & Join(.IPAddress)
       Me.Print "MASCARA DE SUBRED:" & vbTab & Join(.IPSubnet)
       'If Not IsNull(.DefaultIPGateway) Then
           Me.Print "PUERTA DE ENLACE:" & vbTab & vbTab & Join(.DefaultIPGateway)
       'End If
       Me.Print "DIRECCION MAC:" & vbTab & vbTab & .MACAddress
       Me.Print "DNS:" & vbTab & vbTab & vbTab & vbTab & .DNSHostName
       'If .WINSPrimaryServer <> "" Then
           Me.Print "WINS 1:" & vbTab & vbTab & vbTab & .WINSPrimaryServer
       'End If
       'If .WINSSecondaryServer <> "" Then
           Me.Print "WINS 2:" & vbTab & vbTab & vbTab & .WINSSecondaryServer
       'End If
       Me.Print ":---------------------------------------------------------------------------------------------"
       ctlip1 = Join(.IPAddress)
   End If
 End With
Next

On Error GoTo 0
Exit Sub

Fehler_WMI:
MsgBox "Error: " & Err.Number & vbTab & Err.Description, vbCritical
Resume Next
End Sub




' Author: The philosopher

Código [Seleccionar] Expandir



If Not Spanish Then
 Suck it and continue sucking  
End if




Good  afternoon



EDIT: Tomate la  molestia "please"

http://www.elmundo.es/traductor/

I want to have a million of dolars.

 

No me estoy dirigiendo a vos, "abogado defensor Atry".