Mensajes

Debian unstable/Experimental

nesecitaba esa lista de paises

Lo que pides es muy facil.. simplemente, si colocaste las banderas en orden y en array, las cargas con el valor de retorno de la funcion, pero tiene que ser el mismo orden .

ajjajaja lo tendre en cuenta

escritorio de septiembre

Necesito ordenarlo 

Sino contiene comas esta mal programada la web

href estandar debe ir entre comillas, si no va entre comillas es problema de la web, pero creeme que en el 90% de los casos, sino es que mas usan comillas,

tambien con un doble split... me explico

Código [Seleccionar] Expandir

<a href="http://google,com">Google</a>

ahi haces un split a "a href

entonces en el vector 1 queda

Código [Seleccionar] Expandir


"http://google,com">Google</a>

haces un split por las comillas '"'

y la url te queda en el vector 1

ws=winsock

Código [Seleccionar] Expandir

ws.SendData "GET \app.php?parameters=" & parametros & " HTTP/1.1" & vbCrLf & _
            "Host: " & TUHOST & vbCrLf & vbCrLf

ponelo en el evento connect y ya esta

Tengo un problema al intentar empaquetar un ejecutable con vb y upx, el codigo que uso es el siguiente

Dim order As String
Dim ruta As String
ruta = App.path & "\"
order = ruta & "upx.exe -9 " & ruta & "generado.exe"
Shell order, vbHide

Tambien probe con


ShellExecute Me.hWnd, "Open", order, "", "", 0

Declarando la api obviamente.

Lo que no quiero es usar un batch u objetos, a ver si alguien tiene idea de como hacerlo, asi no me va.

salu2

Esta es una funcion que lo hace, pero creo que usa objetos

Código (vb) [Seleccionar] Expandir

[code]Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) >; 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing

ErrHandler:
Err.Clear
End Sub[/code]