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

Citation:

Envoyé par Insomnihack38

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

Qu'entendez-vous par :
Citation:

je le lance dans quel nouvel application ?

ProgElecT · 03/02/2012, 19h02

Citation:

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.

03/02/2012, 18h06	#4
Insomnihack38 Invité de passage gerant Inscription : janvier 2012 Messages : 2 Détails du profil Informations personnelles : Sexe : Informations professionnelles : Activité : gerant Secteur : Enseignement Informations forums : Inscription : janvier 2012 Messages : 2 Points : 0 Points : 0	vb Ok pour le script que tu m'a filé...MAis.... je le lance dans quel nouvel application ?
	00

31/01/2012, 05h38	#1
Insomnihack38 Invité de passage gerant Inscription : janvier 2012 Messages : 2 Détails du profil Informations personnelles : Sexe : Informations professionnelles : Activité : gerant Secteur : Enseignement Informations forums : Inscription : janvier 2012 Messages : 2 Points : 0 Points : 0	Adresse IP Local + Ip Public 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.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email