當前位置:首頁 » 手機軟體 » 易語言網路共享源碼
擴展閱讀

易語言網路共享源碼

發布時間: 2023-03-26 01:42:35

『壹』 易語言源碼是什麼

源碼就是一個程序在編寫時候的代碼文件,易語言的源碼銷塌旁虧橡是.e拓展名的文件,通過易語言可以打開源碼文件來修衫襲改和重新編譯可執行文件

『貳』 易語言怎麼實現網路文件傳輸 能發個源碼我嗎 我看了你回答別人問題時說你有源碼

我有個笨方法要不,但是不用伺服器和客戶端

『叄』 易語言怎麼獲取網頁源代碼

易語言如何取網頁源碼:

1、首先,運行「易語言」主程序,彈出「新建工程對話框」選擇「Windows窗口程序」然後點擊「確定」按鈕,進入「Windows窗口程序設計界面」。如下圖:

『肆』 求易語言或者VB編寫的WiFi連接源碼,就只要連接功能就好。求大神幫幫忙。


#include"stdafx.h"
#include<stdio.h>
#include<windows.h>
#include<wininet.h>
#pragmacomment(lib,"ws2_32.lib")
#pragmacomment(lib,"wininet.lib")
typedefDWORD(__stdcall*IcmpSendEcho)(HANDLE,IPAddr,LPVOID,WORD,PIP_OPTION_INFORMATION,LPVOID,DWORD,DWORD);
typedefHANDLE(__stdcall*IcmpCreateFile)(void);
typedefBOOL(__stdcall*IcmpCloseHandle)(HANDLE);
IcmpCreateFilefIcmpCreateFile;
IcmpSendEchofIcmpSendEcho;
;
BOOLInitFun(void)
{
HMODULElModl;
lModl=(HMODULE)LoadLibrary("Iphlpapi.dll");
if(lModl==0){
printf("Loadthelibraryhaserror! ");
returnFALSE;
}
else{
fIcmpCreateFile=(IcmpCreateFile)GetProcAddress(lModl,"IcmpCreateFile");
fIcmpSendEcho=(IcmpSendEcho)GetProcAddress(lModl,"IcmpSendEcho");
fIcmpCloseHandle=(IcmpCloseHandle)GetProcAddress(lModl,"IcmpCloseHandle");
if(fIcmpCreateFile==NULL||fIcmpSendEcho==NULL||fIcmpCloseHandle==NULL){
printf("Loadthefunctionhaserror! ");
returnFALSE;
}
returnTRUE;
}
}
LPHANDLEGetPingHandle(void)
{
HANDLEpHandle;
pHandle=fIcmpCreateFile();
if((int)pHandle==-1){
printf("LoadICMPhandlehaserror! ");
return0;
}
else{
return(LPHANDLE)pHandle;
}
}
BOOLPing(LPSTRpIPAddr)
{
HANDLEiHwnd;
iHwnd=(HANDLE)GetPingHandle();
IPAddrpAddr;
pAddr=(IPAddr)inet_addr((char*)pIPAddr);
icmp_echo_replypData;
for(inti=1;i<=LoopSend;i++)
{
fIcmpSendEcho(iHwnd,pAddr,NULL,0,NULL,(LPVOID)&pData,sizeof(icmp_echo_reply),0);
if(pData.Status==0)
{
printf("Ping測試返回的結果:Time=%dmsTTL=%d ",(int)pData.RoundTripTime,(int)pData.Options.Ttl);
}
else
{
printf("Ping測試失敗... ");
}
}
if(!fIcmpCloseHandle(iHwnd))printf("ClosehandlehasError! ");
returnTRUE;
}
至於main函數的話你可以自己寫,只要傳入一個IP地址給Ping函數就可以運行了
與它對應的VB模塊代碼
"iphlpapi.dll"()AsLong
"iphlpapi.dll"(ByValIcmpHandleAsLong,ByValDestinationAddressAsLong,ByValRequestDataAsString,ByValRequestSizeAsLong,ByValRequestOptionsAsLong,ReplyBufferAsICMP_ECHO_REPLY,ByValReplySizeAsLong,ByValTimeoutAsLong)AsLong
"iphlpapi.dll"(ByValIcmpHandleAsLong)AsLong
PrivateDeclareFunctioninet_addrLib"wsock32.dll"(ByValcpAsString)AsLong
PrivateTypeIP_OPTION_INFORMATION
ttlAsByte'『生存時間
TosAsByte'『服務類型
FlagsAsByte'『IP頭標志
OptionsSizeAsByte'『選項數據的大小,位元組
OptionsDataAsLong'『指向選項數據的指針
EndType
PrivateTypeICMP_ECHO_REPLY
AddressAsLong''『包含正回復的IP地址
StatusAsLong'『包含回復的狀態(參看後面的常量部分)
RoundTripTimeAsLong'『往返時間RTT(毫秒)
DataSizeAsInteger'『回復數據大小(位元組)
ReservedAsInteger'『保留
ptrDataAsLong'『指向回復數據的指針
OptionsAsIP_OPTION_INFORMATION'『回復選項
DataAsString*250
EndType
PublicTypeRtn_ICMPTestMessage
AddressAsString
StateAsString'''用函數寫
testSuccessAsBoolean'''是否成功測試
timeAsLong
sizeAsLong
ttlAsLong
EndType
(ByValTestIPAsString,ByValTimeoutAsLong,ByValPackSizeAsLong)AsRtn_ICMPTestMessage
DimIcmpHandleAsLong
IcmpHandle=IcmpCreateFile'''創建測試句柄
DimICMPReplyAsICMP_ECHO_REPLY
DimLongIPAddeAsLong
LongIPAddr=inet_addr(TestIP)
DimSendDataAsString'''''為了包大小而設置
SendData=Space(PackSize)
IcmpSendEchoIcmpHandle,LongIPAddr,SendData,Len(SendData),0,ICMPReply,Len(ICMPReply),Timeout
IfICMPReply.Status=0Then
RtnICMPTestMessage.Address=TestIP
RtnICMPTestMessage.size=ICMPReply.DataSize
RtnICMPTestMessage.State=RtnICMPState(ICMPReply.Status)
RtnICMPTestMessage.time=ICMPReply.RoundTripTime
RtnICMPTestMessage.ttl=ICMPReply.Options.ttl
RtnICMPTestMessage.testSuccess=True'''測試成功
Else
RtnICMPTestMessage.Address=TestIP
RtnICMPTestMessage.State=RtnICMPState(ICMPReply.Status)
RtnICMPTestMessage.testSuccess=False'''測試失敗
EndIf
IcmpCloseHandleIcmpHandle
EndFunction

『伍』 怎麼用易語言取到共享Wifi上的計算機名或手機名,以及它們對應的IP地址,最好有源碼,謝謝。

應該符合你的要求,網路HI我,發源碼給你。解決你的問題請採納。

『陸』 易語言網路聊天源碼(非區域網)

飛秋,包你滿意,無線傳臘枝輸最低500kb,最好渣猛1兆,網線鏈接傳輸速度高達10兆以上…聊天等各種功能更是小菜輪梁敏…

『柒』 易語言很多網路模塊的 PSOT網頁訪問 的源代碼是什麼呢

api都是用的api