Adresse IP Local + Ip Public

**Insomnihack38** · 31/01/2012, 05h38

Bonjour a tous.

Je débute dans le domaine du VB, j'ai déja fais plusieurs petit keygen (chose relativement simple) et je voudrai passé à l'éxécution de Ms-dos.

Voila j'ai dans l'idée de faire un executable avec les raccourcis netstat ipconfig et afficher mes ip dans un TextBox dans le but de faire un jolie ptit raccourcis et d'etre fier de moi

pourriez vous m'aider Svp ??
Visual Basic 2010.

Cordialement.

**hackoofr** · 31/01/2012, 09h23

Commence par ce vbscript puis tu peux l’intégrer dans ton projet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Call ipconfig
Call Ip_Publique
'------------------------------GetTempFile(File)-----------------
Function GetTempFile(File)
Set WshShell=WScript.CreateObject("WScript.Shell")
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
'---------------------------------------------------------------
Function ipconfig
set wshshell=CreateObject("WScript.shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName=GetTempFile("ip.txt")
 Command = "%COMSPEC% /C ipconfig  > %TEMP%\ip.txt"
    Result = WshShell.Run(Command,0,True)
    Set File = fso.OpenTextFile(FileName)
    Ping = file.ReadAll
    file.Close
ipconfig = Ping
MsgBox ipconfig,64," Adresse IP !" '
end Function
'*******************Ip_Publique*************************
Function Ip_Publique
'on error resume next
const URL = "http://www.ippages.com/xml/?from=showmyip.com"
 Dim message
 set wshshell=CreateObject("WScript.shell")
 set xmldoc = CreateObject("Microsoft.XMLDOM")
 xmldoc.async=false
 xmldoc.load(URL)
 for each x in xmldoc.documentElement.childNodes
 if x.NodeName = "ip" then
 myip = x.text
 end if
 if x.NodeName = "isp" then
 myhost = x.text
 end if
 if x.NodeName = "country" then
 mycountry = x.text
 end if
 if x.NodeName = "country_code3" then
 mycountry_code3 = x.text
 end if
if x.NodeName = "timestamp_gmt"then
 mytimestamp = x.text
 end if 
 if x.NodeName = "country_currency"then
 mycountry_currency = x.text
 end if 
 if x.NodeName = "country_currency_code"then
 mycountry_currency_code = x.text
 end if
 next
 message = message &"Adresse IP Publique : "
 message = message & myip & vbCRLF & vbCRLF 
 message = message & "Fournisseur d'accès internet :  " & myhost & vbCRLF & vbCRLF
 message = message & "Pays , Ville :  " & mycountry & " , " & mycountry_code3 & vbCRLF & vbCRLF  
 message = message & "La Monnaie du pays : " & mycountry_currency & " , " & mycountry_currency_code & vbCRLF & vbCRLF
 message = message & "Date et Heure : " & mytimestamp
 Getip=message
 msgbox message ,vbinformation ,"Adresse IP Publique"
wshshell.run "http://www.dnsstuff.com/tools/ipall/?domain="& myip
end function

**hackoofr** · 01/02/2012, 00h47

J'ai ajouté quelques informations de plus en l'affichant dans une page HTML :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Call ipconfig
Call Ip_Publique
'------------------------------GetTempFile(File)-----------------
Function GetTempFile(File)
Set WshShell=WScript.CreateObject("WScript.Shell")
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
'---------------------------------------------------------------
Function ipconfig
set wshshell=CreateObject("WScript.shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName=GetTempFile("ip.txt")
 Command = "%COMSPEC% /C ipconfig  > %TEMP%\ip.txt"
    Result = WshShell.Run(Command,0,True)
    Set File = fso.OpenTextFile(FileName)
    Ping = file.ReadAll
    file.Close
ipconfig = Ping
MsgBox ipconfig,64," Adresse IP !" '
end Function
'*******************Ip_Publique*************************
Function Ip_Publique
'on error resume next
const URL = "http://www.ippages.com/xml/?from=showmyip.com"
 Dim message
 Set fso = CreateObject("Scripting.FileSystemObject")
 set wshshell = CreateObject("WScript.shell")
 Set outfile = fso.CreateTextFile("ip.htm")
strHTML="<html><Title>Adresse IP Publique © Hackoo </Title><body bgcolor=#1234568 text=white><style type='text/css'>"&_
    "a:link {color: #F19105;}"&_
    "a:visited {color: #F19105;}"&_
    "a:active {color: #F19105;}"&_
    "a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
 "</style>"
strHTML=strHTML &"<center><h2><B><font color=red>Informations sur l'adresse IP Publique</font></B></h2></center>" & _
              "<table border='1' style='border-collapse: collapse; font size:9pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _
              "<tr><td><center><strong>Drapeau</strong></center></td><td><center><strong>Adresse IP</strong></center></td><td><center><strong>Pays , Ville</strong></center></td>" & _
              "<td><center><strong>Code 3<strong></center></td><td><center><strong>La Monnaie Du Pays</strong></center></td>" & _
              "<td><center><strong>Code Monnaie</strong></center></td><td><center><strong>Date et Heure</strong></center></td></tr>" 
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 set xmldoc = CreateObject("Microsoft.XMLDOM")
 xmldoc.async=false
 xmldoc.load(URL)
 for each x in xmldoc.documentElement.childNodes
 if x.NodeName = "ip" then
 myip = x.text
 end if
 if x.NodeName = "isp" then
 myhost = x.text
 end if
 if x.NodeName = "country" then
 mycountry = x.text
 end if
 if x.NodeName = "country_code3" then
 mycountry_code3 = x.text
 end if
if x.NodeName = "timestamp_gmt"then
 mytimestamp = x.text
 end if 
 if x.NodeName = "country_currency"then
 mycountry_currency = x.text
 end if 
 if x.NodeName = "country_currency_code"then
 mycountry_currency_code = x.text
 end if
 if x.NodeName = "country_flag" then
 mycountry_flag = x.text
 end if
 next
 Lien = "<a href=http://www.dnsstuff.com/tools/ipall/?domain=" & myip & " target=_Blank>"
 ipaddresslookup = "<a href= http://www.whatismyip.com/tools/ip-address-lookup.asp target=_Blank>"
 ipwhoislookup = "<a href= http://www.whatismyip.com/tools/ip-whois-lookup.asp target=_Blank>"
 Signature = "<br><center><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img></center>"
 strHTML = strHTML & "<tr><td><center><img src="& mycountry_flag &"></img></td></center><td><center>" & ipaddresslookup & myip & "</td></center><td><center>"& Lien & _
                                mycountry & "</a></td></center><td><center>"& ipwhoislookup & mycountry_code3 & "</td></center>" & _
                                "<td><center>" & mycountry_currency & "</td></center><td><center>" & mycountry_currency_code & "</td></center>" & _
                                "<td><center>" & mytimestamp & "</td></center></tr>"
 message = message &"Adresse IP Publique : "
 message = message & myip & vbCRLF & vbCRLF 
 message = message & "Fournisseur d'accès internet :  " & myhost & vbCRLF & vbCRLF
 message = message & "Pays , Ville :  " & mycountry & " , " & mycountry_code3 & vbCRLF & vbCRLF  
 message = message & "La Monnaie du pays : " & mycountry_currency & " , " & mycountry_currency_code & vbCRLF & vbCRLF
 message = message & "Date et Heure : " & mytimestamp
 Getip=message
 msgbox message ,vbinformation ,"Adresse IP Publique"
'wshshell.run "http://www.dnsstuff.com/tools/ipall/?domain="& myip
strHTML = strHTML & "</table>"
outfile.WriteLine strHTML & Signature &"</body></html>"
outfile.Close
wshshell.Run "ip.htm"
end function

**Insomnihack38** · 03/02/2012, 18h06

Ok pour le script que tu m'a filé...MAis....

je le lance dans quel nouvel application ?

**hackoofr** · 03/02/2012, 18h20

Envoyé par Insomnihack38

Ok pour le script que tu m'a filé...MAis....
je le lance dans quel nouvel application ?

Qu'entendez-vous par :

je le lance dans quel nouvel application ?

**ProgElecT** · 03/02/2012, 19h02

Envoyé par Insomnihack38

Bonjour a tous.

Je débute dans le domaine du VB, j'ai déjà fais plusieurs petit keygen (chose relativement simple) et je voudrai passé à l'exécution de Ms-dos.

Voila j'ai dans l'idée de faire un exécutable avec les raccourcis netstat ipconfig et afficher mes ip dans un TextBox dans le but de faire un jolie petit raccourcis et d'être fier de moi

pourriez vous m'aider Svp ??
Visual Basic 2010.

Cordialement.

Salut, pas dans le bon forum

, pour VB 2010 le forum est VB.Net (VB Express, VB 2003 et supérieur)

Mais, Insomnihack38, le code proposé par hackoofr est du VBScript, tu le sauvegardes avec un éditeur quelconque (Notepad par exemple) en .vbs, puis tu doubles clique sur ce fichier pour le lancer.

Adresse IP Local + Ip Public

VBScript

Vue hybride

Discussions similaires

Partager

Partager