易语言wifi源码
在电脑打开浏览器，输入路由器的登录I P，一般是192.168.1.1或者192.168.0.1，如果不对就看路由器机身，一般底下有写。打开出现登录页面，初始用户名和密码都是admin，也有用户名admin，密码不填，这个在路由器说明书上有写。进去以后，看无线设置（WIFI）里，就能看到密码。切换至“无线设置”选项卡，然后就可以修改无线密码啦。修改PSK密码后，点击“确定”按钮即可。如果，路由器登录用户名和密码忘记了，就重置路由器，一般路由器后面都有一个很小的重置按钮，需要用笔头，在路由器开着的状态下，按下重置按钮不放，直到路由器所有指示灯都亮起。
② 易语言怎么查看谁在连接我的WiFi
其实可以用易语言调用CMD的netsh wlan show hostednetwork命令来查询WiFi链接信息，然后把信息返回到编辑框，如以下图片，源码已上传，详细使用参考源码，谢谢望采纳！！
③ 求易语言或者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密码源码。
无线路由的
wpa2
密码
很难破解
破无线密码
是一个漫长而复杂的工序，本人亲身经历以来，得出以下结论：
1.破解密码需要有一个热闹的网络。周边无线越多越近越好.毕竟想攻击路由器的无线，特别是wpa的，抓手包半天弄不上几个。但他在下载、上传时是很快的。
2.破解密码电脑配置很重要，他需要大量的运算。本人用的又好又顺手的是ewsa软件，破解没多久就让电脑发热。
3.字典很重要。人们大多数以自家电话号码为无线密码，如xxxx-xxxxxxx共十位。当你确定所在地区区号后010、07xx，以及所用的开头189、133、139……经过字典生成器生成，测试词有10^7个，如果每秒测试1000个，你得等上2.7个小时。
4.搞到他家电话号码，自己试试吧。我这地区成功率大约20%5.投机取巧，输入12345678、00000000或许能行ewsa软件及beini奶瓶linux破解系统网上有，自己搜吧
⑤ 求用易语言写的通过无线网卡连接无线路由器的程序源码！不要模块，程序越简单越好！谢谢
这个有一个简单的方法，不过你要找到你的无线路由器的服务名称，找服务名称不会可以找度娘，实在不行可以问我！
这里附上禁用源码！只要把服务名称填对就好了！
现在上面的服务名称是我家的无线服务，由于路由器的不同，服务也可能不同，你可以找一下!
看不懂可以联系我！
⑥ 易语言怎么写wifi连接软件用什么函数
看到这些垃圾回答我就生气！！老是有人不懂装懂，让我来告诉你真正的答案，希望不会太晚。
网络搜“易语言资源网”，再在网内搜“易语言WiFi密码连接源码”你就能找到源码了。
易语言WiFi密码连接源码例程程序结合易语言XML解析支持库，调用API函数和易语言模块连接WiFi，仅限WIN7使用，需要wlanapi.dll的支持。
⑦ 易语言免费wifi共享软件代码
netsh需要管理员权限，用管理员权限运行编译文件或者管理员权限运行易语言