以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逻辑按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125246)
--  作者：zoyong
--  发布时间：2018/9/23 16:33:00
--  逻辑按钮


    With wb.AddInputGroup("form1","就餐类别","就餐类别")
        .AddSwitch("中餐","中餐")
        .AddSwitch("晚餐","晚餐")
    End With

除了用单选按钮，逻辑按键能不能实现二选一功能
选中中餐后就不能点晚餐，选了晚餐后中餐就不能选择，怎么实现
--  作者：有点甜
--  发布时间：2018/9/23 17:47:00
--  

只能用单选列表 http://www.foxtable.com/mobilehelp/scr/0052.htm

 

如果要用AddSwitch，你要用js动态设置别的项目 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122839&skin=0

 
--  作者：zoyong
--  发布时间：2018/9/25 12:45:00
--  
static da As Date = Date.today.AddDays(-1)
If da <> Date.today AndAlso Date.Now.Hour = 10 Then
    da = Date.today
    Dim ta As String = Format(da,"dddd")   \'格式化星期
    If ta = "星期二"  Then
        Dim lb As WinForm.Button = Forms("订餐").Controls("重起打印机")
        lb.PerformClick()
    End If
End If


计划任务，设置每周二上午10点模拟按键，上面的代码是否有效
--  作者：有点甜
--  发布时间：2018/9/25 15:18:00
--  
测试了一下，代码没问题的。你现在遇到什么情况？
--  作者：zoyong
--  发布时间：2018/9/26 8:15:00
--  
企业微信如何获取e.Cookies("username") 的值
下面的代码，实测为空值
我想进入页面后自动输入名称

.AddInput("姓名","姓名","text").Value = e.Cookies("username") 
--  作者：有点甜
--  发布时间：2018/9/26 8:47:00
--  

1、你有没有做登陆页面，登陆以后才能设置cookie，给cookie赋值的；

 

2、如果你想直接获取当前用户的微信号的信息，你要做授权 http://www.foxtable.com/mobilehelp/scr/0237.htm

 
--  作者：zoyong
--  发布时间：2018/9/26 9:14:00
--  
HttpRequst事件

If e.host = "210121kc64.51mypc.cn:20995" Then \'需要授权才能访问的域名,前面不能加http
    Dim UserId As String
    Dim UserName As String
    Dim sb As New StringBuilder
    sb.AppendLine("<meta name=\'viewport\' c>")
    If e.GetValues.ContainsKey("code") Then \'如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId
        Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
        ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))
        Dim hc As new HttpClient(ul)
        Dim jo As JObject = JObject.Parse(hc.GetData)
        If jo("UserId") IsNot Nothing Then
            UserId = jo("UserId")
        End If
    Else
        UserId = e.Cookies("userid") \'否则从cookie中提取userid和username
    End If
    Dim Verified As Boolean
    Dim dr As DataRow = DataTables("Users").Find("userid =\'" & UserId & "\'") \'根据openid找出对应的行
    If UserId  > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True \'授权成功
        Verified  = True
        UserName = dr("name")
        e.AppendCookie("userid",UserId) \'将userid和username存储在Cookie中wxcbfda17a529a9666
    ElseIf e.GetValues.ContainsKey("code") = False Then \'如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxcbfda17a529a9666&redirect_uri=http%3a%2f%2f210121kc64.51mypc.cn:20995&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
        sb.Append("<meta http-equiv=\'Refresh\' c>") \'跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
    If Verified = False Then
        sb.AppendLine("你无权访问本系统")
    Else
        sb.AppendLine("欢迎" & UserName & " , <a href=\'http://www.baidu.com\'>刷新页面</a>")
    End If
    e.WriteString(sb.ToString)
End If

以上代码无效啊
--  作者：有点甜
--  发布时间：2018/9/26 9:23:00
--  

1、msgbox(e.host) 看一下值是什么

 

2、加入msgbox，看执行到了哪些代码
--  作者：zoyong
--  发布时间：2018/9/26 17:09:00
--  
msgbox(e.host)
msgbox(UserId)

210121kc64.51mypc.cn:20995

加上:20995，代码不跳出

用这个执行，210121kc64.51mypc.cn     
msgbox(e.host)     弹出210121kc64.51mypc.cn        
msgbox(UserId)     弹出空值
--  作者：有点甜
--  发布时间：2018/9/26 17:18:00
--  

认认真真看完帮助文档

 

http://www.foxtable.com/mobilehelp/scr/0237.htm