formda ip adresi gösterme
Tarih
31/12/2009 09:11
Konu Sahibi
larion
Yorumlar
14
Okunma
3012
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



larion
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... T....
122
18/05/2009
5
Sakarya
Ofis 2007
11/10/2016,00:02
Çözüldü 
sayın ustalrım ben oluşturduğum formda kullanılan makinanın ip adresini göstermek istiyorum bununla ilgili kod arıyorum. formda aradım fakat bulamadım.şimdiden yardımlarınız için teşekkürler.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


emturker
- Murat -
Kullanici Avatari
Uzman
M....
1.245
30/10/2008
775
İstanbul
Ofis 2010 32 Bit
Dün,08:54
Çözüldü 
Sn.larion
Bu Çalışma Benim Örneğimde Yer Almaktadır Bir Bakın Yapamazsanız yardımcı Oluruz.
Saygılar

Telefon Rehberi 
Application Engineer
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
Merhaba,
Öncelikle bir modül açıp aşağıdaki kodları yapıştırıyoruz.

Kod:
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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
Option Compare Database

Public Const MAX_WSADescription = 256

Public Const MAX_WSASYSStatus = 128

Public Const ERROR_SUCCESS As Long = 0

Public Const WS_VERSION_REQD As Long = &H101

Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&

Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&

Public Const MIN_SOCKETS_REQD As Long = 1

Public Const SOCKET_ERROR As Long = -1

Public Type HOSTENT

hName As Long

hAliases As Long

hAddrType As Integer

hLen As Integer

hAddrList As Long

End Type

Public Type WSADATA

wVersion As Integer

wHighVersion As Integer

szDescription(0 To MAX_WSADescription) As Byte

szSystemStatus(0 To MAX_WSASYSStatus) As Byte

wMaxSockets As Integer

wMaxUDPDG As Integer

dwVendorInfo As Long

End Type

Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long

Public Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long

Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long

Public Declare Function gethostname Lib "WSOCK32.DLL" (ByVal szHost As String, ByVal dwHostLen As Long) As Long

Public Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHost As String) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

 

Public Function GetIPAddress() As String

Dim sHostName As String * 256

Dim lpHost As Long

Dim HOST As HOSTENT

Dim dwIPAddr As Long

Dim tmpIPAddr() As Byte

Dim i As Integer

Dim sIPAddr As String

If Not SocketsInitialize() Then

GetIPAddress = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR Then

GetIPAddress = ""

MsgBox "Windows Sockets error " & str$(WSAGetLastError()) & " has occurred. Unable to successfully get Host Name."

SocketsCleanup

Exit Function

End If

sHostName = Trim$(sHostName)

lpHost = gethostbyname(sHostName)

If lpHost = 0 Then

GetIPAddress = ""

MsgBox "Windows Sockets are not responding. " & "Unable to successfully get Host Name."

SocketsCleanup

Exit Function

End If

CopyMemory HOST, lpHost, Len(HOST)

CopyMemory dwIPAddr, HOST.hAddrList, 4

ReDim tmpIPAddr(1 To HOST.hLen)

CopyMemory tmpIPAddr(1), dwIPAddr, HOST.hLen

For i = 1 To HOST.hLen

sIPAddr = sIPAddr & tmpIPAddr(i) & "."

Next

GetIPAddress = Mid$(sIPAddr, 1, Len(sIPAddr) - 1)

SocketsCleanup

End Function

 

Public Function GetIPHostName() As String

Dim sHostName As String * 256

If Not SocketsInitialize() Then

GetIPHostName = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR Then

GetIPHostName = ""

MsgBox "Windows Sockets error " & str$(WSAGetLastError()) & " has occurred. Unable to successfully get Host Name."

SocketsCleanup

Exit Function

End If

GetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) - 1)

SocketsCleanup

End Function

 

 

Public Function HiByte(ByVal wParam As Integer)

HiByte = wParam \ &H100 And &HFF&

End Function

 

Public Function LoByte(ByVal wParam As Integer)

LoByte = wParam And &HFF&

End Function

 

Public Sub SocketsCleanup()

If WSACleanup() <> ERROR_SUCCESS Then

MsgBox "Socket error occurred in Cleanup."

End If

End Sub

 

Public Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

Dim sLoByte As String

Dim sHiByte As String

If WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS Then

MsgBox "The 32-bit Windows Socket is not responding."

SocketsInitialize = False

Exit Function

End If

If WSAD.wMaxSockets < MIN_SOCKETS_REQD Then

MsgBox "This application requires a minimum of " & CStr(MIN_SOCKETS_REQD) & " supported sockets."

SocketsInitialize = False

Exit Function

End If

If LoByte(WSAD.wVersion) < WS_VERSION_MAJOR Or (LoByte(WSAD.wVersion) = WS_VERSION_MAJOR And HiByte(WSAD.wVersion) < WS_VERSION_MINOR) Then


sHiByte = CStr(HiByte(WSAD.wVersion))

sLoByte = CStr(LoByte(WSAD.wVersion))

MsgBox "Sockets version " & sLoByte & "." & sHiByte & " is not supported by 32-bit Windows Sockets."

SocketsInitialize = False

Exit Function

End If

SocketsInitialize = True

End Function


daha sonra formun tasarımına dönüyoruz ve ip adresini ve bilgisayar adını nerede görüntülemek istersek oraya aşağıdaki ifadeyi yapıştırıyoruz.

örneğin metin1 alanına bilgisayar adını, metin2 alanına adresi yazalım.
metin1 = GetIPHostName()

metin2= GetIPAddress()

evrak kayıt programı örneğini kontrol edebilirsin : http://www.accesstr.net/konu-basit-ve-ku...grami.html

Cevapla


larion
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... T....
122
18/05/2009
5
Sakarya
Ofis 2007
11/10/2016,00:02
Çözüldü 
formu inceledim hata veriyor vb kod penceresi acılıyor ve fGetHostIPAddresses işaretliyor.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
Hangi formu inceledin?
Benim eklediğim kod şu an sorunsuz çalışan programdan kodlar.
Ayrıca evrak kayıt programına baktın mı ?
http://www.accesstr.net/konu-basit-ve-ku...grami.html
Cevapla


larion
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... T....
122
18/05/2009
5
Sakarya
Ofis 2007
11/10/2016,00:02
Çözüldü 
çok teşekkür ederim. süper oldu.
sayın cuneyt sizin formu inceledim. ilk başta hata verdi benden kaynaklanan modül yerine forma kopyalamışım kodları haliyle olmadı daha sonradan modül olarak yaptım sorunsuz çalışıyor. bir sorum daha olacak çalışma gurubunuda gösterebiliyormuyuz. bu arada bu siteden çok faydalanıyorum inanılmaz ilerleme kaydettim herkeze sonsuz teşekkürler.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Raporda yılı gösterme ertans 8 174 Dün, 14:39 atoz112
  web sayfasının belli bir kısmını gösterme maras321 2 85 30/11/2016, 17:38 maras321
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 157 27/11/2016, 13:36 53rize
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 305 25/11/2016, 18:36 mehami
  Formdaki bir alan göre alt formda alanları gizleme enderya 2 90 20/11/2016, 19:34 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya