小胖熊酷数码GPS论坛 www.sosaw.com

 找回密码
 注册register

扫一扫,访问微社区

查看: 2881|回复: 14

[GPS工具] CE脚本运行错误,请大侠指教下,谢谢!

[复制链接]
发表于 2015-9-20 14:57 | 显示全部楼层 |阅读模式
分享到:
综合发帖模板
发帖目的: 求助
地图品牌: GPS工具
测试机型: 路特仕
适用系统(可多选): CE6 
地图国别: 中国 » 中国
支持分辨率(可多选): 800x480 
资源分类(可多选):  
我用MOUSECLICK脚本做了一个自动点击,现出现问题如下:


脚本定义:
#开始运行3G网络连接,连接网络,然后运行导航。
Run("\Sdmmc\3G\3G.exe")#运行3G连接
sleep 5000
MouseClick("3G.exe",420,152)
sleep 1000
MouseClick("3G.exe",420,202)
sleep 1000
MouseClick("3G.exe",350,363)
Sleep 2000
exit

我打开任务管理器,明明可以看到3G.EXE进程,为什么会提示上面的错误呢?


请大侠指点迷津,谢谢!



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册register

x

点评

天下第一狂人,MTK方案,自动安装驱动!  发表于 2015-9-21 09:43

评分

1

查看全部评分

 楼主| 发表于 2015-9-20 16:40 | 显示全部楼层
xiuyan1030 发表于 2015-9-20 16:15
给你发个我以前做的“自动点击”,只用其中一组,参考参考。

谢谢,我看你增加了一个屏幕高度的判断。我也加进去了,还是不行,我的问题是找不到那个窗口。
回复 支持 6 反对 0

使用道具 举报

发表于 2015-9-20 16:15 | 显示全部楼层
本帖最后由 xiuyan1030 于 2015-9-20 16:16 编辑

给你发个我以前做的“自动点击”,只用其中一组,参考参考。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册register

x
回复 支持 6 反对 0

使用道具 举报

发表于 2015-9-20 16:41 | 显示全部楼层
不懂,帮你顶起来。。。
回复 支持 5 反对 0

使用道具 举报

发表于 2015-9-20 16:37 小胖熊手机版 | 显示全部楼层
3G.exe改成3G看看?

点评

谢谢!已经可以了。  发表于 2015-9-20 16:50
回复 支持 4 反对 1

使用道具 举报

 楼主| 发表于 2015-9-20 16:44 | 显示全部楼层
cecial 发表于 2015-9-20 16:37
3G.exe改成3G看看?

谢谢!

改成3G就可以了。

这是为什么呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-9-20 16:53 | 显示全部楼层
cecial 发表于 2015-9-20 16:37
3G.exe改成3G看看?

能不能帮我看看自动注册的问题?

提示Sub must not be in Control structure

Sub不能作为控制结构!


#Errorlevel("off")
arra=DirContents(SystemPath("ScriptPath")& "\待写入文件\*.reg",1)
FilesSum=ElementCount(arra)
Filesct=""
If(FilesSum>0)
   For Number=1 to FilesSum-1
     Filect=ReadFile(SystemPath("ScriptPath")& "\待写入文件\"& arra[Number])
     If(Number>1)
       Filect=SubStr(Filect,9)
     Endif
     Filesct=Filesct&Filect
   Next
   zxhn=1
   StatusType(ST_MESSAGE)
   StatusInfo("自动注册工具")
   StatusMessage("^NL^^NL^^NL^^NL^^NL^^NL^           正在写入注册表,请稍候...")
   While(zxhn=1)
     If(Find( Filesct,"HKEY_" )>0)
       Call("xieru")
       zxhn=1
      Else
       zxhn=0
     Endif
   EndWhile
   StatusType(ST_HIDDEN)
   SleepMessage(1,"^NL^^NL^^NL^^NL^^NL^^NL^           成功写入注册表文件")
Else
   SleepMessage(2,"^NL^^NL^^NL^^NL^^NL^^NL^           【待写入注册表信息】内不存在要写入的注册表文件")
Endif
runpath=SystemPath("ScriptPath")& "\待写入注册表信息\待运行路径.txt"
If(FileExists(runpath))
  Call("runFile")         
Endif
exit
Sub xieru--------------------##运行到这里报错!
  zfctwz=Find( Filesct,"HKEY_" )
  zfcwwz=Find( Filesct,"]" )
  cczfcsm=zfcwwz-zfctwz
  syzfcct=SubStr(Filesct,zfctwz,cczfcsm)
  fnroot=Part(syzfcct,"\",1)
  dygxgwz=Length(fnroot)+1
    If(fnroot eq "HKEY_LOCAL_MACHINE")
      fnroot="HKLM"
    ElseIf(fnroot eq "HKEY_CLASSES_ROOT")
      fnroot="HKCR"
    ElseIf(fnroot eq "HKEY_CURRENT_USER")
      fnroot="HKCU"
     Else
      fnroot="HKUS"
    Endif
   fnkey=SubStr(syzfcct,dygxgwz)
   Filesct=SubStr(Filesct,zfcwwz)
   zfctwz=Find( Filesct,"^NL^")
   Filesct=SubStr(Filesct,zfctwz+2)
   zfctwz2=Find( Filesct,"[HKEY_" )
   If(zfctwz2>0)
     lghkjlr=SubStr(Filesct,1,zfctwz2)
     Filesct=SubStr(Filesct,zfctwz2)
    Else
     lghkjlr=SubStr(Filesct,1)
   Endif
   n=1
   While(n=1)  
    xzhkjdy=Find( lghkjlr,"=" )
    If(xzhkjdy>0)
       syhzfc=Part(lghkjlr,"^NL^",1)
       valuenmdsz=ReverseFind(syhzfc,"=")
       valuenm=SubStr(syhzfc,1,valuenmdsz-1)
       valuenmc=Length(valuenm)
       valuenmsw=Find(lghkjlr,valuenm)
       lghkjlr=SubStr(lghkjlr,valueszyksw+valuenmc+1)
       If(Find(valuenm,"""")>0)
           valuenmc=Length(valuenm)
           valuenm=SubStr(valuenm,2,valuenmc-2)
         Else
           If(valuenm eq "@")
             valuenm="Default"
           Endif
       Endif
       valuesz=Part(lghkjlr,"=",2)
       pdszsfyth=Find( valuesz,"^NL^" )
       If(pdszsfyth>0)
          dljfzccd=ReverseFind(valuesz,"^NL^")
          valuesz=SubStr(valuesz,1,dljfzccd-1)
       Endif
       valueszwz=Find(lghkjlr,valuesz)
       lghkjlr=SubStr(lghkjlr,valueszwz+Length(valuesz)+2)      
       syxrmlpd=Find(valuesz,"""")
       zcpdsfth=Find( valuesz,"^NL^" )
       If(syxrmlpd=0)
          If(zcpdsfth>0)
            valuesz=Replace(valuesz,"^NL^","")
            valuesz=Replace(valuesz,"\","")
            pdsfykg=Find( valuesz," " )
            If(pdsfykg>0)
              valuesz=Replace(valuesz," ","")
            Endif
          Endif
          RegWriteExt(fnroot,fnkey,valuenm,valuesz)
        Else
          valueszwfh=ReverseFind(valuesz,"""")
          valuesz=SubStr(valuesz,2,valueszwfh-2)
          syxrmlpd=Find(valuesz,"""")
          If(syxrmlpd>0)
            valuesz=Replace(valuesz,"\","")
           Else
            pdsfydh=Find(valuesz,"\\")
            If(pdsfydh>0)
              valuesz=Replace(valuesz,"\\","\")
            Endif
          Endif
          RegWriteString(fnroot,fnkey,valuenm,valuesz)
       Endif
     Else
      n=0
    Endif
   EndWhile
EndSub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册register

x
回复 支持 反对

使用道具 举报

发表于 2015-9-20 18:47 | 显示全部楼层
jacsonchen 发表于 2015-9-20 16:44
谢谢!

改成3G就可以了。

因为需要的是窗口标题,不是程序的名字。
回复 支持 反对

使用道具 举报

发表于 2015-9-21 00:34 | 显示全部楼层
路过,学习了.
回复 支持 反对

使用道具 举报

发表于 2015-9-21 09:08 | 显示全部楼层
jacsonchen 发表于 2015-9-20 16:53
能不能帮我看看自动注册的问题?

提示Sub must not be in Control structure

控制结构应该指的是IF,For,While之类的,你检查下这个语句开头结尾是不是完整的。
很大可能是没有完整导致,或者中间哪个写错了。

慢慢debug
回复 支持 反对

使用道具 举报

发表于 2015-9-21 09:47 | 显示全部楼层
顶第一狂人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-9-23 11:46 | 显示全部楼层
cecial 发表于 2015-9-20 18:47
因为需要的是窗口标题,不是程序的名字。

还有个小问题请教下。
在CE界面运行没问题,一旦到了一机多图或者导航设置路径启动,又找不到3G窗口,感觉像是3G窗口不是当前窗口那种情况,这个要怎么解决?
回复 支持 反对

使用道具 举报

发表于 2015-9-23 13:33 | 显示全部楼层
jacsonchen 发表于 2015-9-23 11:46
还有个小问题请教下。
在CE界面运行没问题,一旦到了一机多图或者导航设置路径启动,又找不到3G窗口,感 ...

不清楚,没玩过这·
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册register

本版积分规则

百度SITEMAP|小黑屋|Archiver|手机版|小胖熊酷数码GPS论坛 www.sosaw.com ( 沪ICP备16050520号-1 )|网站地图 

GMT+8, 2020-2-20 00:44 , Processed in 0.209100 second(s), 29 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表