代理ip易語言源碼

⑴ 獲取全國ip代理的易語言源碼

用CE破那程序，之後搜你的地址，之後全拉下去，然後都改9999999，之後用CE搞基址，然後在易語言用十六位進制和「」弄基質，後弄幾按鈕就行了，要視頻，代碼現成先給分，然後追加我給

⑵ 如果我有易語言的ip代理源碼，如何快速的添加到自己的某個源碼，並起作用！比如，

IE代理不會立即生效，需重啟IE

⑶ 易語言代理IP源碼

精易模塊，，網頁-訪問 有代理，可設置代理為列表框的內容，時鍾可設置延遲然後運行網頁訪問

⑷ 求易語言地區代理IP源碼帶模塊

恰好寫了，送樓主！求加分啊，這個可以說是網上最完美的代理伺服器源碼，只用了精易模塊，而且精易模塊的源碼也可以找我要。
【模塊+源碼】已壓縮，請解壓！

⑸ 求一份用代理IP刷空間點擊率的易語言源碼

這個要解鎖才行啊。。
你搜下兔子代理，去官網下載相應版本安裝，
然後打開瀏覽器再看就可以了，好用有效。

⑹ ip代理刷網址 VB或易語言啊！什麼的都行 要源碼！

代理IP太麻煩，如果你用的是ADSL寬頻，可以參照以下代碼：

Option Explicit
Private Declare Function RasHangUp Lib "RasApi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceName = 128
Const RAS_MaxDeviceType = 16
Const RAS95_MaxDeviceType = 16
Private Type RASCONN95
'set dwsize to 412
dwSize As Long
hRasConn As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Private Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Const INTERNET_DIALSTATE_DISCONNECTED = 1
Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Const INTERNET_DIAL_UNATTENDED = &H8000
Dim iHandle As Long
Private Declare Function InternetDial Lib "wininet.dll" ( _
ByVal hwndParent As Long, _
ByVal lpszConnectoid As String, _
ByVal dwFlags As Long, _
lpdwConnection As Long, _
ByVal dwReserved As Long) As Long

'參數dwConnection指定撥號連接句柄
Private Declare Function InternetHangUp Lib "wininet.dll" _
(ByVal dwConnection As Long, _
ByVal dwReserved As Long) As Long

'斷開

Public Sub CloseConnected()
Dim lngRetCode As Long
Dim lpcb As Long
Dim lpcConnections As Long
Dim intArraySize As Integer
Dim intLooper As Integer
ReDim lprasconn95(intArraySize) As RASCONN95
lprasconn95(0).dwSize = 412
lpcb = 256 * lprasconn95(0).dwSize
lngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections)
If lngRetCode = 0 Then
If lpcConnections > 0 Then
For intLooper = 0 To lpcConnections - 1
RasHangUp lprasconn95(intLooper).hRasConn
Next intLooper
Else
MsgBox "沒有撥號網路連接！", vbInformation
End If
End If
End Sub
'檢測
Public Function IsConnected() As Boolean '返回T時為連接
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "產生錯誤！", vbInformation, "提示"
Exit Function
End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasConn, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function
'撥號
Public Function AddConnected()
'建立名稱為wt的連接，連接成功後連接句柄保存在iHandel中
InternetDial Form1.hWnd, "wt", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0
End Function
Private Sub Command1_Click()
Dim x As String
x = AddConnected()
End Sub
Private Sub Command2_Click()
Call CloseConnected
End Sub
Private Sub Command3_Click()
Dim k As Boolean
If IsConnected() = True Then
MsgBox ("OK")
Else
MsgBox ("No")
End If
End Sub
Private Sub Form_Activate()
Me.Hide
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If IsConnected() = False Then
Command1_Click '連接
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Form1 = Nothing
End Sub
Private Sub Timer1_Timer()
Command2_Click '斷開
Unload Me
Form2.Show
End Sub

⑺ 易語言如何查詢指定進程ip，有源碼寫源碼，不會不說話。

要實現指定進程或者說每個進程不同IP。
跟編程語言無關的。
用WFP驅動攔截電腦上的網路。然後應用層與驅動通信。使用SOCKS5根據PID來設置不同的代理IP。就可以實現每個進程不同IP。

⑻ 易語言網吧代理源碼（只要代理IP部分） IP地址埠都有了就是不知道怎麼代理地址

看看這個吧，也許對你有幫助哦。

使用方便簡單的。