按键精灵 局域网内传输文字数据

1.360设置白名单 否则按键 *** 作是会呗阻挡的

2.采用局域网通信,一般中控都用这个,按键精灵站内搜索 套接字

3.再就是各种偏方 利用网络数据库 FTP空间文本 类似你这种共享文件夹方式的！

一个变量三个值，要用符号隔开

Dim a,fso,folder,f,files

a = ""

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.getfolder("C:\Users\Administrator\Desktop\新建文件夹")

Set files = folder.SubFolders

For Each f In files

a = a &f.name &","

Next

Set fso = Nothing

RunApp "C:\Users\Administrator\Desktop\新建文件夹"

MessageBox "C:\Users\Administrator\Desktop\新建文件夹" &" 目录下有这几个文件夹：" &a

把你的路径放进去，a里面就有你要的值

记得追加分哦

给你个Access的例子（很早之前写的，现在好久没用过按键了）：

Ret = Plugin.Access.Connect(path,"")

If RET = true Then

Form1.短信1.Text="连接数据库成功"

原ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

Do

新ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

If 新ID = 原ID Then

Delay 5000

Else

Form1.短信老.Text=Form1.短信老.Text&"提取前"&新ID&VBCrLf

新ID = Lib.算法.提取字串符中所有数字(新ID)

Form1.短信老.Text=Form1.短信老.Text&"提取后"&新ID&VBCrLf

yzm = Plugin.Access.SelectData("MSG_Inbox", "MsgTitle","ID="&新ID)

If instr(yzm,"百度")>0 Then

Form1.短信1.Text=yzm

Exit Do

Else

Form1.短信1.Text="【获取到不是来自百度的短信？？？】"&VBCrLf&yzm

Exit Do

End If

End If

Loop

Ret = Plugin.Access.Close()

End If

---