IP öyrənmək

[Ʌüsal]

Forma bir 1 Button 1 ədəd TextBox və Components bölümündən Microsoft Winsock Control 6.0 komponentini əlavə edin.Əlavə etidiyniz komponenti Forma əlavə edin.Buttonun üstündə iki dəfə klik edin və aşağıdakı kodları yazın.

 

Private Sub Command1_Click()

ip = Winsock1.LocalIP

Text1.Text = ip

End Sub

 

[resad444]

vusal bunu axtarirdim mene lazim idi,birde buna aid video olsaydi daha aydin basa dusmek olardi cox saq ol.

[Guest Cavid018]

Eziyyete gore cox sag ol.....Amma bu kod bize ancaq statik Ip-ni verecek

 

ip = Winsock1.LocalIP

 

Chox adam ise Dinamik IP-ni oyrenmek isteyir.....

[saka-muka]

basa dusmedim bunu hansisa proqramlasdirma dilinde yazmag lazimdi ya text kimi? etrafli izah etsen yaxsi olar

[Ʌüsal]

Dynamic IP öyrənmək (VB6 üçün)

 

Forma 1 ədəd Button 1 ədəd TextBox 1 ədəd Winsock komponenetini əlavə edin.

 

1. Buttona klik edin və aşağıdakı kodu yazın.

 

Private Sub Command1_Click()

Winsock1.RemotePort = 80

Winsock1.RemoteHost = "ippages.com"

Winsock1.Connect

End Sub

 

Function CutIP(HTML As String) As String

Dim p1 As Integer

p1 = InStr(HTML, "Content-Type: text/html")

CutIP = Trim(Mid(HTML, p1 + 27, Len(HTML) - p1 - 23))

End Function

 

2. Winsock komponentinə klik edin və aşağıdakı kodu yazın.

 

Private Sub Winsock1_Close()

Form1.Caption = "Not Connect"

Winsock1.Close

End Sub

 

Private Sub Winsock1_Connect()

Form1.Caption = "Connected"

 

Winsock1.SendData "GET " + "/simple/" + " HTTP/1.0" + Chr(10) + Chr(10)

End Sub

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Temp As String

Winsock1.GetData HTMLCode

IP.Text = CutIP(HTMLCode)

End Sub

 

3. Formun General bölməsinə aşağıdakı kodu daxil edin.

 

Option Explicit

 

Dim HTMLCode As String

 

 

[saka-muka]

vusal bunu delphi7 de elemey olar?

[Ʌüsal]

qeyd edtim axi VB 6 ucundur

onun kodlari tam ferqlidir

[tony]

statik ip nedi dinamik ip nedi?

birde buttonlari sekillerle nece evez edek(Visual Basic-de)

[Ʌüsal]

Static İP 192.168.1.2-dir Azerbaycan uzre

Dinamic ise senin komputerinin İP-sidir.Avtomatikdeki İP

 

 

 

Button Sekil elavesi

 

Video dərslik

[tony]

Cox sagol

 

Cox sagol

[Guest Cavid018]

Yox Vusal.....

 

Statik Ip senin shexsi Ip-in saliyir musteqil Ip.....Dinamik Ip ise dns server terefinden abonentlerine paylanilir.....192.168.1.1--255 bu esas shluzdur asnovnoy shluz.....Cox qurgular standart shekilde bi Ip-den baslahlayir,yeniki bu IP standart ilk qanundur diapazondur......Lap misal uchun bele bir sual verim sene:Iri ofisdir ischinde koputer var 255-eded....Yeni 20 komputer alinib nece qosharsan hemen bu kompalri,eynen 255 olan diapazona workgrupa ?

[Ʌüsal]

192.168.1.2 statikdir.yeni umumi az-da bu ipdir ama avtomatik olanda ip deyisir.dimaicde ele deyisken ipdir yeni her nete girib tezden modeme restart ver ip deyisecekdir.dunen mende ip 94.20.37.131 idi indi ise 94.20.70.195.yeni deyiskendir.statik ise deyismeyen ipdir.

[Guest Cavid018]

-))

Imkan yaransa yuxarida yazdigim (iri ofis baresinda) olan sualimada cavab verersen....!!

 

Yaxshi bu ne Ip-dir 217.213.78.2 ve senin IP-in 94.20.37.131__ferqleri ?!

 

Umumiyyetle IP ne demekdir ?

 

[Ʌüsal]

İP intenten protkol adresidirşbiri biri ile elaqe ucundur.

 

senin verdiyin suali bilmriem cunki men sebeke ile mesgul olmuram

[Guest Cavid018]

ok,ne olarki hami her sheyi bile bilmezki....Duzelen sheydir

[Ʌüsal]

umimiyyetde sebeke sahesine maragim yoxdu sadace oyrenmirem...