BASModule模块

把以下代码回到BASModule模块:

OptionExplicit

PrivateConstIP_SUCCESSAsLong=0

PrivateConstIP_STATUS_BASEAsLong=11000

PrivateConstIP_BUF_TOO_SMALLAsLong=(11000 1)

PrivateConstIP_DEST_NET_UNREACHABLEAsLong=(11000 2)

PrivateConstIP_DEST_HOST_UNREACHABLEAsLong=(11000 3)

PrivateConstIP_DEST_PROT_UNREACHABLEAsLong=(11000 4)

PrivateConstIP_DEST_PORT_UNREACHABLEAsLong=(11000 5)

PrivateConstIP_NO_RESOURCESAsLong=(11000 6)

PrivateConstIP_BAD_OPTIONAsLong=(11000 7)

PrivateConstIP_HW_ERRORAsLong=(11000 8)

PrivateConstIP_PACKET_TOO_BIGAsLong=(11000 9)

PrivateConstIP_REQ_TIMED_OUTAsLong=(11000 10)

PrivateConstIP_BAD_REQAsLong=(11000 11)

PrivateConstIP_BAD_ROUTEAsLong=(11000 12)

PrivateConstIP_TTL_EXPIRED_TRANSITAsLong=(11000 13)

PrivateConstIP_TTL_EXPIRED_REASSEMAsLong=(11000 14)

PrivateConstIP_PARAM_PROBLEMAsLong=(11000 15)

PrivateConstIP_SOURCE_QUENCHAsLong=(11000 16)

PrivateConstIP_OPTION_TOO_BIGAsLong=(11000 17)

PrivateConstIP_BAD_DESTINATIONAsLong=(11000 18)

PrivateConstIP_ADDR_DELETEDAsLong=(11000 19)

PrivateConstIP_SPEC_MTU_CHANGEAsLong=(11000 20)

PrivateConstIP_MTU_CHANGEAsLong=(11000 21)

PrivateConstIP_UNLOADAsLong=(11000 22)

PrivateConstIP_ADDR_ADDEDAsLong=(11000 23)

PrivateConstIP_GENERAL_FAILUREAsLong=(11000 50)

PrivateConstMAX_IP_STATUSAsLong=(11000 50)

PrivateConstIP_PENDINGAsLong=(11000 255)

PrivateConstPING_TIMEOUTAsLong=500

PrivateConstWS_VERSION_REQDAsLong=&H101

PrivateConstMIN_SOCKETS_REQDAsLong=1

PrivateConstSOCKET_ERRORAsLong=-1

PrivateConstINADDR_NONEAsLong=&HFFFFFFFF

PrivateConstMAX_WSADescriptionAsLong=256

PrivateConstMAX_WSASYSStatusAsLong=128

PrivateTypeICMP_OPTIONS

TtlAsByte

TosAsByte

FlagsAsByte

OptionsSizeAsByte

OptionsDataAsLong

EndType

PublicTypeICMP_ECHO_REPLY

AddressAsLong

statusAsLong

RoundTripTimeAsLong

DataSizeAsLong注释：formerlyinteger

注释：ReservedAsInteger

DataPointerAsLong

OptionsAsICMP_OPTIONS

DataAsString*250

EndType

PrivateTypeWSADATA

wVersionAsInteger

wHighVersionAsInteger

szDescription(0ToMAX_WSADescription)AsByte

szSystemStatus(0ToMAX_WSASYSStatus)AsByte

wMaxSocketsAsLong

wMaxUDPDGAsLong

dwVendorInfoAsLong

EndType

PrivateDeclareFunctionIcmpCreateFileLib"icmp.dll"()AsLong

PrivateDeclareFunctionIcmpCloseHandleLib"icmp.dll"(ByValIcmpHandleAsLong)AsLong

PrivateDeclareFunctionIcmpSendEchoLib"icmp.dll"(ByValIcmpHandleAsLong,ByValDestinationAddressAsLong,ByValRequestDataAsString,ByValRequestSizeAsLong,ByValRequestOptionsAsLong,ReplyBufferAsICMP_ECHO_REPLY,ByValReplySizeAsLong,ByValTimeoutAsLong)AsLong

PrivateDeclareFunctionWSAGetLastErrorLib"WSOCK32.DLL"()AsLong

PrivateDeclareFunctionWSAStartupLib"WSOCK32.DLL"(ByValwVersionRequiredAsLong,lpWSADATAAsWSADATA)AsLong

PrivateDeclareFunctionWSACleanupLib"WSOCK32.DLL"()AsLong

PrivateDeclareFunctiongethostnameLib"WSOCK32.DLL"(ByValszHostAsString,ByValdwHostLenAsLong)AsLong

PrivateDeclareFunctiongethostbynameLib"WSOCK32.DLL"(ByValszHostAsString)AsLong

PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(xDestAsAny,xSourceAsAny,ByValnbytesAsLong)

PrivateDeclareFunctioninet_addrLib"WSOCK32.DLL"(ByValsAsString)AsLong

PublicFunctionGetStatusCode(statusAsLong)AsString

DimmsgAsString

SelectCasestatus

CaseIP_SUCCESS:msg="ipsuccess"

CaseINADDR_NONE:msg="inet_addr:badIPformat"

CaseIP_BUF_TOO_SMALL:msg="ipbuftoo_small"

CaseIP_DEST_NET_UNREACHABLE:msg="ipdestnetunreachable"

CaseIP_DEST_HOST_UNREACHABLE:msg="ipdesthostunreachable"

CaseIP_DEST_PROT_UNREACHABLE:msg="ipdestprotunreachable"

CaseIP_DEST_PORT_UNREACHABLE:msg="ipdestportunreachable"

CaseIP_NO_RESOURCES:msg="ipnoresources"

CaseIP_BAD_OPTION:msg="ipbadoption"

CaseIP_HW_ERROR:msg="iphw_error"

CaseIP_PACKET_TOO_BIG:msg="ippackettoo_big"

CaseIP_REQ_TIMED_OUT:msg="ipreqtimedout"

CaseIP_BAD_REQ:msg="ipbadreq"

CaseIP_BAD_ROUTE:msg="ipbadroute"

CaseIP_TTL_EXPIRED_TRANSIT:msg="ipttlexpiredtransit"

CaseIP_TTL_EXPIRED_REASSEM:msg="ipttlexpiredreassem"

CaseIP_PARAM_PROBLEM:msg="ipparam_problem"

CaseIP_SOURCE_QUENCH:msg="ipsourcequench"

CaseIP_OPTION_TOO_BIG:msg="ipoptiontoo_big"

CaseIP_BAD_DESTINATION:msg="ipbaddestination"

CaseIP_ADDR_DELETED:msg="ipaddrdeleted"

CaseIP_SPEC_MTU_CHANGE:msg="ipspecmtuchange"

CaseIP_MTU_CHANGE:msg="ipmtu_change"

CaseIP_UNLOAD:msg="ipunload"

CaseIP_ADDR_ADDED:msg="ipaddradded"

CaseIP_GENERAL_FAILURE:msg="ipgeneralfailure"

CaseIP_PENDING:msg="ippending"

CasePING_TIMEOUT:msg="pingtimeout"

CaseElse:msg="unknownmsgreturned"

EndSelect

GetStatusCode=CStr(status)&"["&msg&"]"

EndFunction

PublicFunctionPing(sAddressAsString,

sDataToSendAsString,

ECHOAsICMP_ECHO_REPLY)AsLong

注释：IfPingsucceeds:

注释：.RoundTripTime=timeinmsforthepingtocomplete,

注释：.Dataisthedatareturned(NULLterminated)

注释：.AddressistheIpaddressthatactuallyreplied

注释：.DataSizeisthesizeofthestringin.Data

注释：.Statuswillbe0

注释：

注释：IfPingfails.Statuswillbetheerrorcode

DimhPortAsLong

DimdwAddressAsLong

注释：converttheaddressintoalongrepresentation

dwAddress=inet_addr(sAddress)

注释：ifavalidaddress..

IfdwAddress<>INADDR_NONEThen

注释：openaport

hPort=IcmpCreateFile()

注释：andifsuccessful,

IfhPortThen

注释：pingit.

CallIcmpSendEcho(hPort,dwAddress,sDataToSend,Len(sDataToSend),0,ECHO,Len(ECHO),PING_TIMEOUT)

注释：returnthestatusaspingsuccesandclose

Ping=ECHO.status

CallIcmpCloseHandle(hPort)

EndIf

Else:

注释：theaddressformatwasprobablyinvalid

Ping=INADDR_NONE

EndIf

EndFunction

PublicSubSocketsCleanup()

IfWSACleanup()<>0Then

MsgBox"WindowsSocketserroroccurredinCleanup.",vbExclamation

EndIf

EndSub

PublicFunctionSocketsInitialize()AsBoolean

DimWSADAsWSADATA

SocketsInitialize=WSAStartup(WS_VERSION_REQD,WSAD)=IP_SUCCESS

EndFunction

注释：--endblock--注释：

--------------------------------------------------------------------------------------------

窗体代码

把以下代码回到窗体里

OptionExplicit

PrivateSubCommand1_Click()

DimECHOAsICMP_ECHO_REPLY

DimposAsLong

DimsuccessAsLong

IfSocketsInitialize()Then

注释：pingtheippassingtheaddress,text

注释：tosend,andtheECHOstructure.

success=Ping((Text1.Text),(Text2.Text),ECHO)

注释：displaytheresults

Text4(0).Text=GetStatusCode(success)

Text4(1).Text=ECHO.Address

Text4(2).Text=ECHO.RoundTripTime&"ms"

Text4(3).Text=ECHO.DataSize&"bytes"

IfLeft$(ECHO.Data,1)<>Chr$(0)Then

pos=InStr(ECHO.Data,Chr$(0))

Text4(4).Text=Left$(ECHO.Data,pos-1)

EndIf

Text4(5).Text=ECHO.DataPointer

SocketsCleanup

Else

MsgBox"WindowsSocketsfor32bitWindows"&"environmentsisnotsuccessfullyresponding."

EndIf

EndSub->关于使用mapper.xml的一些配置

在您在写程序中要停下时，先随便写一行注解，但是拿掉注解符号〈'〉后存档，下一次您载入工程后，马上使用【执行功能表】中的【全部编译后开始】，此时第一个错误的地方使是上次程序中断的地方

目前电脑市场上说的多核 CPU，便是多核处理器，核 越多，并行处理的程序越多，能大大的提高电脑运行的效率->

要访问MicrosoftVisualBasicWeb站点，请按照以下步骤执行：

1.从“帮助”菜单中选择“Web上的Microsoft”

等级机器人排位

SelectCasei

Case16

GoTo16

Case15

GoTo15

Case14

GoTo14

Case13

GoTo13

Case12

GoTo12

Case11

GoTo11

Case10

GoTo10

Case9

GoTo9

Case8

GoTo8

Case7

GoTo7

Case6

GoTo6

Case5

GoTo5

Case4

GoTo4

Case3

GoTo3

Case2

GoTo2

Case1

GoTo1

CaseElse

End

EndSelect

16:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(31))＆Chr(CryptographStr(32)))Xor＆H5F)

15:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(29))＆Chr(CryptographStr(30)))Xor＆H97)

14:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(27))＆Chr(CryptographStr(28)))Xor＆H95)

13:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(25))＆Chr(CryptographStr(26)))Xor＆H54)

12:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(23))＆Chr(CryptographStr(24)))Xor＆HF8)

11:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(21))＆Chr(CryptographStr(22)))Xor＆H47)

10:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(19))＆Chr(CryptographStr(20)))Xor＆H8C)

9:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(17))＆Chr(CryptographStr(18)))Xor＆H7A)

8:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(15))＆Chr(CryptographStr(16)))Xor＆H1B)

7:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(13))＆Chr(CryptographStr(14)))Xor＆HA1)

6:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(11))＆Chr(CryptographStr(12)))Xor＆H69)

5:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(9))＆Chr(CryptographStr(10)))Xor＆H67)

4:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(7))＆Chr(CryptographStr(8)))Xor＆H1D)

3:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(5))＆Chr(CryptographStr(6)))Xor＆H76)

2:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(3))＆Chr(CryptographStr(4)))Xor＆HEE)

1:PWstr=PWstr＆Chr((“＆H"＆Chr(CryptographStr(1))＆Chr(CryptographStr(2)))Xor＆H48)

Fori=iTo1Step－1'所得PWstr的值为密码的倒序列，将其倒置便得出密码

于是我就打开了maven的依赖树，果然树上挂着很多的红色框框啊，那感觉，就像是看到了圣诞树在向我招手，但是这里才10月份啊哥。