ناو یان ئیمیل:   
ووشه‌ی نهێنی:   

[-]
دواین 15 بابه‌ته‌كان
زیاتر لە ||٣٥٠٠|| سایت کە هەڵەی SQL هەیە \|دیاری|/
نووسه‌ری بابه‌ت:aaashvan دواترین وه‌لام:كه يوان جاف ژماره‌ی وه‌لامه‌كان:15 جاری بینراو:317 كات:11-16-2019
دەمەوی مۆبایلم روت بکەم mi poco f1
نووسه‌ری بابه‌ت:DaLian دواترین وه‌لام:DaLian ژماره‌ی وه‌لامه‌كان:0 جاری بینراو:119 كات:11-14-2019
فەیس بوکت دیسەبڵ بووە؟ وەرە چاکیکەوە
نووسه‌ری بابه‌ت:balen.halabjay.69 دواترین وه‌لام:Amanj king ژماره‌ی وه‌لامه‌كان:6 جاری بینراو:1272 كات:11-13-2019
خولی هاكی كۆمبیته‌ر (موبایل و فیس بووك و سایت )
نووسه‌ری بابه‌ت:AhmadKifre دواترین وه‌لام:yousif1 ژماره‌ی وه‌لامه‌كان:9 جاری بینراو:268 كات:11-12-2019
کێ لە ۆرد پرێس شارەزایە تکایە وەرنە یارمەتیم
نووسه‌ری بابه‌ت:revinlordiii دواترین وه‌لام:new viros ژماره‌ی وه‌لامه‌كان:3 جاری بینراو:504 كات:11-11-2019
Bitcoin بیتکۆین
نووسه‌ری بابه‌ت:AkaRanD دواترین وه‌لام:hack bo Android ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:295 كات:11-11-2019
چۆن لەڕێگەێ IPموبایل هاک دەکرێت ئەگەر لەسە ر هەمان هیلبن
نووسه‌ری بابه‌ت:hawlerpc دواترین وه‌لام:wrea.akoy ژماره‌ی وه‌لامه‌كان:3 جاری بینراو:226 كات:11-10-2019
هاورییان چۆن هیرش بکه ینه سه ر که نالی tv?
نووسه‌ری بابه‌ت:aram.. دواترین وه‌لام:mazhar apo ژماره‌ی وه‌لامه‌كان:4 جاری بینراو:280 كات:11-07-2019
هاك كردنی فه‌یسبووك به‌ باك تراك + ڤیدیۆ
نووسه‌ری بابه‌ت:AttaCker Man دواترین وه‌لام:KURD-HACKER ژماره‌ی وه‌لامه‌كان:16 جاری بینراو:5474 كات:11-05-2019
CV
نووسه‌ری بابه‌ت:EMADENGL دواترین وه‌لام:EMADENGL ژماره‌ی وه‌لامه‌كان:0 جاری بینراو:137 كات:11-04-2019
چۆب کافینگی http custom و هاوشێوەکانێ ئەنلوک بکەم ؟
نووسه‌ری بابه‌ت:HawrazBakrajo دواترین وه‌لام:HawrazBakrajo ژماره‌ی وه‌لامه‌كان:1 جاری بینراو:345 كات:11-04-2019
یارمەتی هاوڕێیان تکایە لەسەر سێرڤەری لینوکس
نووسه‌ری بابه‌ت:revinlordiii دواترین وه‌لام:revinlordiii ژماره‌ی وه‌لامه‌كان:0 جاری بینراو:99 كات:11-04-2019
سڵاو هاوریان ڤایرۆسێکم ئه‌وێت
نووسه‌ری بابه‌ت:haker1 دواترین وه‌لام:[email protected] ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:33 كات:11-03-2019
چۆن شوێنی کەسێک بدۆزمەوە لە فەیسبوک ؟؟؟
نووسه‌ری بابه‌ت:dana201028 دواترین وه‌لام:bost ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:1684 كات:11-02-2019
نامە ناردنو پەیوەندی کردن بەخۆرای {korek,‌,asia,,zian}رێگەی نوێ(100%)
نووسه‌ری بابه‌ت:KURDISTAN IT دواترین وه‌لام:DLSORANz ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:1211 كات:11-02-2019


هه‌لبژاردنی پله‌
  • 1 ده‌نه‌گه‌كان - 5 كۆی گشتی
  • 1
  • 2
  • 3
  • 4
  • 5
دروست كردنیی به‌رنامه‌یك بۆ به‌دسه‌ت هینانی ئایبی سایت
#1
سلا وهاوریان باس له‌دروست كردنیی به‌رنامه‌یكیی ئاسان ئه‌كه‌م بۆ به‌ده‌ست هینانیی ئایبیی سایت
با زۆریی له‌ سه‌ر نه‌ رۆم سۆرس كۆد به‌رنامه‌كه‌
[code]Option Explicit

Private Const IP_SUCCESS As Long = 0
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long = 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long = 256
Private Const MAX_WSASYSStatus As Long = 128
'
Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Long
wMaxUDPDG As Long
dwVendorInfo As Long
End Type
'

Private Declare Function gethostbyname Lib "wsock32" _
(ByVal hostname As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(xDest As Any, _
xSource As Any, _
ByVal nbytes As Long)

Private Declare Function lstrlenA Lib "kernel32" _
(lpString As Any) As Long
'
Private Declare Function WSAStartup Lib "wsock32" _
(ByVal wVersionRequired As Long, _
lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32" () As Long

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
(ByVal IcmpHandle As Long) As Long


Private Declare Function inet_addr Lib "wsock32" _
(ByVal s As String) As Long

Private Declare Function inet_ntoa Lib "wsock32.dll" _
(ByVal addr As Long) As Long

Private Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, _
ByVal Ptr As Long) As Long



Private Sub Command2_Click()
MsgBox "FT-HackeR..."
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""

End Sub


Private Sub Command1_Click()

Dim pos As Long
' Dim success As Long
Dim sIPAddress As String

If SocketsInitialize() Then

'convert the host name into an IP address
sIPAddress = GetIPFromHostName(Text1.Text)
Text2.Text = sIPAddress
Else
MsgBox "C???? C?CI? ?C ??E??E "

End If
'
End Sub



Private Function GetIPFromHostName(ByVal sHostName As String) As String

'converts a host name to an IP address
Dim ptrHosent As Long 'address of HOSENT structure
Dim ptrName As Long 'address of name pointer
Dim ptrAddress As Long 'address of address pointer
Dim ptrIPAddress As Long
Dim ptrIPAddress2 As Long

ptrHosent = gethostbyname(sHostName & vbNullChar)

If ptrHosent <> 0 Then

'assign pointer addresses and offset

'ptrName is the official name of the host (PC).
'If using the DNS or similar resolution system,
'it is the Fully Qualified Domain Name (FQDN)
'that caused the server to return a reply.
'If using a local hosts file, it is the first
'entry after the IP address.
ptrName = ptrHosent

'Null-terminated list of addresses for the host.
'The Address is offset 12 bytes from the start of
'the HOSENT structure. Note: Here we are retrieving
'only the first address returned. To return more than
'one, define sAddress as a string array and loop through
'the 4-byte ptrIPAddress members returned. The last
'item is a terminating null. All addresses are returned
'in network byte order.
ptrAddress = ptrHosent + 12

'get the IP address
CopyMemory ptrName, ByVal ptrName, 4
CopyMemory ptrAddress, ByVal ptrAddress, 4
CopyMemory ptrIPAddress, ByVal ptrAddress, 4
CopyMemory ptrIPAddress2, ByVal ptrIPAddress, 4

GetIPFromHostName = GetInetStrFromPtr(ptrIPAddress2)

End If

End Function


Private Function GetStrFromPtrA(ByVal lpszA As Long) As String

GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)

End Function

'
Private Function GetInetStrFromPtr(Address As Long) As String

GetInetStrFromPtr = GetStrFromPtrA(inet_ntoa(Address))

End Function


Private Sub SocketsCleanup()

If WSACleanup() <> 0 Then
MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
End If

End Sub


Private Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function
ئه‌وه‌ش فیركاریی خۆم به‌هیوایی سود


دواین 10 بابه‌ته‌كان

وه‌ڵام
#2
دەست خۆش بیت جاریکی تر کۆدەکان لە ناو قالبیک دابنی بۆ ئەوەی بابەتکەت جوان بیت
کۆدی PHP::
Private Const IP_SUCCESS As Long 0
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long 256
Private Const MAX_WSASYSStatus As Long 128
'
Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Long
wMaxUDPDG As Long
dwVendorInfo As Long
End Type
'

Private Declare Function gethostbyname Lib "wsock32" _
(ByVal hostname As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias 
"RtlMoveMemory" _
(xDest As Any_
xSource 
As Any_
ByVal nbytes 
As Long)

Private Declare Function 
lstrlenA Lib "kernel32" _
(lpString As Any) As Long
'
Private Declare Function WSAStartup Lib "wsock32" _
(ByVal wVersionRequired As Long, _
lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32" () As Long

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
(ByVal IcmpHandle As Long) As Long


Private Declare Function inet_addr Lib "wsock32" _
(ByVal s As String) As Long

Private Declare Function inet_ntoa Lib "wsock32.dll" _
(ByVal addr As Long) As Long

Private Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, _
ByVal Ptr As Long) As Long



Private Sub Command2_Click()
MsgBox "FT-HackeR..."
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""

End Sub


Private Sub Command1_Click()

Dim pos As Long
Dim success As Long
Dim sIPAddress 
As String

If SocketsInitialize() Then

'convert the host name into an IP address
sIPAddress = GetIPFromHostName(Text1.Text)
Text2.Text = sIPAddress
Else
MsgBox "C???? C?CI? ?C ??E??E "

End If
'
End Sub



Private Function GetIPFromHostName(ByVal sHostName As String) As String

'converts a host name to an IP address
Dim ptrHosent As Long '
address of HOSENT structure
Dim ptrName 
As Long 'address of name pointer
Dim ptrAddress As Long '
address of address pointer
Dim ptrIPAddress 
As Long
Dim ptrIPAddress2 
As Long

ptrHosent 
gethostbyname(sHostName vbNullChar)

If 
ptrHosent <> 0 Then

'assign pointer addresses and offset

'
ptrName is the official name of the host (PC).
'If using the DNS or similar resolution system,
'
it is the Fully Qualified Domain Name (FQDN)
'that caused the server to return a reply.
'
If using a local hosts fileit is the first
'entry after the IP address.
ptrName = ptrHosent

'
Null-terminated list of addresses for the host.
'The Address is offset 12 bytes from the start of
'
the HOSENT structureNoteHere we are retrieving
'only the first address returned. To return more than
'
onedefine sAddress as a string array and loop through
'the 4-byte ptrIPAddress members returned. The last
'
item is a terminating nullAll addresses are returned
'in network byte order.
ptrAddress = ptrHosent + 12

'
get the IP address
CopyMemory ptrName
ByVal ptrName4
CopyMemory ptrAddress
ByVal ptrAddress4
CopyMemory ptrIPAddress
ByVal ptrAddress4
CopyMemory ptrIPAddress2
ByVal ptrIPAddress4

GetIPFromHostName 
GetInetStrFromPtr(ptrIPAddress2)

End If

End Function


Private Function 
GetStrFromPtrA(ByVal lpszA As Long) As String

GetStrFromPtrA 
String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrAByVal lpszA)

End Function

'
Private Function GetInetStrFromPtr(Address As Long) As String

GetInetStrFromPtr = GetStrFromPtrA(inet_ntoa(Address))

End Function


Private Sub SocketsCleanup()

If WSACleanup() <> 0 Then
MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
End If

End Sub


Private Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function 
دواین 10 بابه‌ته‌كان

Soon we come back!
وه‌ڵام
#3
وه‌لا خۆم دامنا به‌س ریك كلیكم له‌ ناردن كر هه‌له‌ ببوو رن

وه‌ڵام
#4
دةست خوش برام بة سودة
دواین 10 بابه‌ته‌كان

وه‌ڵام
#5
سباس مه‌لا سانا

وه‌ڵام
#6
دەست خۆش
دواین 10 بابه‌ته‌كان

وه‌ڵام
#7
سباس نیۆ گیان

وه‌ڵام
#8
ده‌ست خۆش

دواین 10 بابه‌ته‌كان
وه‌ڵام
#9
سباسHeartHeart

وه‌ڵام


ئه‌و بابه‌تانه‌ی له‌وانه‌یه‌ له‌ یه‌ک بچن.
بابه‌ت نووسه‌ر وه‌لامه‌كان بینین دواین په‌یام
Star خوولی فێربوونی sql server وانەیی یەکەم مہسہتہرسه رده م 1 747 03-12-2019, 08:06 AM
دواین په‌یام: Paewand - Rwandze
  کۆرسی فێربوونی زمانی ++Cوانەیی دووەم مہسہتہرسه رده م 1 640 02-19-2019, 06:45 AM
دواین په‌یام: Paewand - Rwandze
  سی شارپ یەکێک لە زمانەکانی بەرنامەنووسیی مایکرۆسۆف sarwar aziz 2 1،161 09-08-2015, 03:22 PM
دواین په‌یام: sarwar aziz
  [ دُرسً] دُرۅسًتُكردُنٌی тєჯт тєѕт ♥ἨḴ-Ḋ♥ 9 2،214 06-23-2015, 02:52 PM
دواین په‌یام: mazhar apo
  نەرنامەی دروستکردنی ئەنیمایشنم ئەوێ-خۆرایی-؟ blood hacker 8 1،693 09-04-2014, 11:46 PM
دواین په‌یام: blood hacker
  دروست كردنی به‌رنامه‌یك بۆ زانینی بۆرته‌ كراوه‌كان مہسہتہرسه رده م 9 2،427 03-01-2014, 04:45 PM
دواین په‌یام: HAMA_QALADZEY
  دروست كردنی به‌رنامه‌یك بۆكردنه‌وه‌ی سایتی مه‌به‌ستvb.6 مہسہتہرسه رده م 10 1،984 02-23-2014, 01:27 AM
دواین په‌یام: HAMA_QALADZEY
  دامه‌زراندیی vb2008 له‌سه‌ر cd مہسہتہرسه رده م 3 993 11-24-2013, 06:24 PM
دواین په‌یام: مہسہتہرسه رده م
  ڤیر ژنی نویی بەرنامەی a.k.m v 1.4بەشیکی زۆۆر گریگی بۆزیدکرا hacktools Maker 11 3،356 10-16-2013, 01:49 AM
دواین په‌یام: Maker
  جۆنیه‌تی درویت كردنیی سریال نه‌مبه‌ر تایبه‌ت به‌خۆت مہسہتہرسه رده م 8 2،654 09-27-2013, 03:14 AM
دواین په‌یام: Dlovan

برۆ بۆ :


ئه‌ندامه‌كانی ئه‌م بابه‌ته‌یان کردۆته‌وه‌: 1 مێوان