求一段VB小程序

292关注698浏览

要求是这样的 程序要能判断本机ip(就是那个客户端IP地址),如果和上次登陆的不一样(仅限上一次)就执行c盘的某一个文件一次 。。。。循环操作 分有点少 这是我全部的分了 希望高手�

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 酥油茶

    15人对此回答表示赞同

    首先说一句,上楼的“Winsock1.LocalIP”应该是局域网内(内网)的IP,具体获得真实的IP(万维网IP),有点烦。

    可以用WindowsXP自带的“IPConfig.exe”CMD命令来获得IP:
    Shell "cmd /c ipconfig > c:\f.txt",vbNormalfocus
    将该程序的执行返回信息写入“c:\f.txt”中。

    然后你只能找了!!
    展开
    15
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Burian

    5人对此回答表示赞同

    http://hi.baidu.com/luobo528/blog/item/ea776cf00e1049aea40f5213.html
    展开
    5
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Gary_Jin

    2人对此回答表示赞同

    这个太简单了,总的来说不就是按start以后开始计时么? 然后end或者有个闹钟功能
    展开
    2
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Anna

    2人对此回答表示赞同

    完整代码如下,你只需在窗体中添加两个控件:Winsock和Timer即可

    Private Sub Form_Load()
    Timer1.Interval = 1
    SaveSetting "VB", "SAVEIP", "IP", Winsock1.LocalIP
    End Sub

    Private Sub Timer1_Timer()
    Dim
    展开
    2
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部