‘壹’ 易语言源码是什么
源码就是一个程序在编写时候的代码文件,易语言的源码销塌旁亏橡是.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