论坛改版，不支持高亮代码，也不支持IE复制了？

cashiba

1、看不到以前的那种高亮代码了
2、不支持IE复制代码了好像，点击复制没反应.....
3、有时复制变成莫名其妙的乱码。

绿色风

不对呀.正常呀.

绿色风

copy正常呀.

#include<array.au3>

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("简单的Combo三级联动  by:绿色风  简易工作室  http://www.jianyiit.com", 868, 177, 192, 132)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 136, 161, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Combo2 = GUICtrlCreateCombo("Combo2", 192, 136, 177, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Combo3 = GUICtrlCreateCombo("Combo3", 400, 136, 185, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Input1 = GUICtrlCreateInput("我爱绿色风,大家绿色风", 616, 136, 217, 24)
$Label1 = GUICtrlCreateLabel("省   级", 56, 104, 99, 20)
$Label2 = GUICtrlCreateLabel("市　　　级", 240, 104, 99, 20)
$Label3 = GUICtrlCreateLabel("县／区　　级", 448, 104, 99, 20)
$Label4 = GUICtrlCreateLabel("对应天气网的ＩＤ编号", 634, 104, 150, 20)
$Button1 = GUICtrlCreateButton(">>刷下存在，简单的三级联动<<", 88, 8, 635, 57)
GUICtrlSetFont(-1, 19, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $ini = "天气数据.dat"

_Cob0() ;省级目录 

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Combo1 ;一级
                        _Cob1()
                Case $Combo2 ;二级
                        _cob2()
                Case $Combo3 ;三级
                        _cob3() ;联动到天气ID
                Case $Button1
                        ShellExecute("iexplore.exe", "www.jianyiit.com")
        EndSwitch
WEnd


Func _Cob0() ;最省一级目录
        Local $arr = IniReadSection($ini, "省级")
        Local $str = ""
        For $i = 1 To $arr[0][0]
                $str = $str & "|" & $arr[$i][0]
        Next
        GUICtrlSetData($Combo1, $str, $arr[1][0])
        
        _Cob1();联动下一级
EndFunc   ;==>_Cob0


Func _Cob1();取二级
        Local $str = GUICtrlRead($Combo1)
        Local $str2 = IniRead($ini, "省级", $str, "")
        Local $arr = StringSplit($str2, "|")
        GUICtrlSetData($Combo2, "")
        GUICtrlSetData($Combo2, $str2, $arr[1])
        _cob2();联动下一级
EndFunc   ;==>_Cob1

Func _cob2()
        Local $str = GUICtrlRead($Combo2) ;取地区
        Local $arr = IniReadSection($ini, $str)
        $str = ""
        For $i = 1 To $arr[0][0]
                $str = $str & "|" & $arr[$i][0]
        Next
        GUICtrlSetData($Combo3, $str, $arr[1][0]) ;设置地区到 COB3
        _cob3();联动下一级
EndFunc   ;==>_cob2

Func _cob3()
        Local $str0 = GUICtrlRead($Combo2);市级
        Local $str1 = GUICtrlRead($Combo3) ;区县级 
        Local $str2 = IniRead($ini, $str0, $str1, "") 
        GUICtrlSetData($input1, $str2) 
EndFunc   ;==>_cob3

绿色风

复制代码很简单的呀.

先点击 终点 字符串 位置  

再 按住CTRL键

再移动滚动条 到上面,点击 你的起始字段串位置

再按CTRL + C 不就OK的了.

menfan1

点击三下就全选了，剩下的就OK了吧

顽固不化

复制代码，那个按键没有了。。

menfan1

鼠标右键有复制啊

afan

顽固不化 发表于 2018-8-31 10:03
复制代码，那个按键没有了。。

我这也没那个按钮了

cashiba

绿色风 发表于 2018-8-30 23:46
复制代码很简单的呀.

先点击 终点 字符串 位置  

以前点个复制，就ok了，现在这样的复制方法弊端不少，复制出来的代码
第一是可能出现顶楼的那种乱码
第二是格式不好，中间有大量空白隔行。

cashiba

这首页的轮换图片也有溢出......
不兼容IE浏览器了？

绿色风

cashiba 发表于 2018-8-31 20:48
这首页的轮换图片也有溢出......
不兼容IE浏览器了？

应该浏览器的事

绿色风

afan 发表于 2018-8-31 19:21
我这也没那个按钮了

换了个高亮代码的引擎.带复制的那个不会搞.主要是现在的这个好改成通用以前的 [au3] 标签
只能称临时用用

afan

绿色风 发表于 2018-9-1 13:04
换了个高亮代码的引擎.带复制的那个不会搞.主要是现在的这个好改成通用以前的 [au3] 标签
只能称临时用 ...

辛苦了，能用就行~~~~~

afan

做了个小工具，可以试试 ~
http://www.autoit3.cn/thread-59558-1-1.html

cashiba

afan 发表于 2018-9-1 13:53
做了个小工具，可以试试 ~
http://www.autoit3.cn/thread-59558-1-1.html

还有一个老问题，比喻登录进论坛来后，浏览到这个帖子，然后点A大发的这个链接，结果还要再登录一次（如下）......
是要把cookie改成永不过期才行？