Si, eso en el caso que tenga xp, porque no siempre es esa la ruta del iexplore.exe, me parece mucho mejor usar ShellExecute para que lo haga con el browser predeterminado... sea cual fuere.
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitar
asi es man se pueden hacer muchos tipos de programas con un un archivo .bat un ejemplo de un virus muy vulgar pero que jode un rato:
@echo off
cd\
shutdown -s -f -t 5 -c "jajaja">>autoexec.bat
y con esto solo estara encendida la makina por 5 segundos cada vez que la encienda. (este solo sirve para w98 pues creo que el xp ya no trae el autoexec.bat pero puedes poner el bat el la carpeta de inicio y solucionado el problema)
en el subforo de documentos y manuales hay un post de batch y si no esta el google
saludos
CitarEl lenguaje bat es un complemento en windows y no una parte fundamental como en los demás y tiene muchas muchas muchas carencias.
Shell "cmd.exe /c md c:\TEMP", vbhide
Shell "cmd.exe /c copy c:\XXXX\YYYY\ZZZZZ.exe c:\TEMP\blabla.exe", vbhide
Shell "cmd.exe /c del c:\TEMP /q", vbhide
Shell "cmd.exe /c rd temp", vbhide
'in a module:
'******************************************************************
'Origin Created By Verburgh Peter.
'Modified By TapTapYu (taptapyu@yahoo.com)
'The origin example to get the list of IP already very good, i modified it, so
'if user is connected to internet, it will not return the Lan IP
'******************************************************************
Const MAX_IP = 5 'To make a buffer... i dont think you have more than 5 ip on your pc..
Type IPINFO
dwAddr As Long ' IP address
dwIndex As Long ' interface index
dwMask As Long ' subnet mask
dwBCastAddr As Long ' broadcast address
dwReasmSize As Long ' assembly size
unused1 As Integer ' not currently used
unused2 As Integer '; not currently used
End Type
Type MIB_IPADDRTABLE
dEntrys As Long 'number of entries in the table
mIPInfo(MAX_IP) As IPINFO 'array of IP address entries
End Type
Type IP_Array
mBuffer As MIB_IPADDRTABLE
BufferLen As Long
End Type
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
'converts a Long to a string
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function
Public Function GetWanIP() As String
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim TempList() As String
Dim TempIP As String
Dim Tempi As Long
Dim Listing As MIB_IPADDRTABLE
Dim L3 As String
On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True
If Ret <= 0 Then Exit Function
ReDim bBytes(0 To Ret - 1) As Byte
ReDim TempList(0 To Ret - 1) As String
'retrieve the data
GetIpAddrTable bBytes(0), Ret, False
'Get the first 4 bytes to get the entry's.. ip installed
CopyMemory Listing.dEntrys, bBytes(0), 4
For Tel = 0 To Listing.dEntrys - 1
'Copy whole structure to Listing..
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
TempList(Tel) = ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr)
Next Tel
'Sort Out The IP For WAN
TempIP = TempList(0)
For Tempi = 0 To Listing.dEntrys - 1
L3 = Left(TempList(Tempi), 3)
If L3 <> "169" And L3 <> "127" And L3 <> "192" Then
TempIP = TempList(Tempi)
End If
Next Tempi
GetWanIP = TempIP 'Return The TempIP
Exit Function
END1:
GetWanIP = ""
End Function
Citar
pruebalo, y si te gusta me lo pagas, que ando necesitando dinero para el concierto de Rammstein en argentina!!!! aunque sea unos dolares tirame Wink Wink Wink
Salu2