找回密码
 加入
搜索
AUTOIT CN»论坛 › 休闲娱乐 › 『 谈天说地 』 › 号外::高亮标签 更新 [pre]代码[/pre] 【20190918】 ...
12下一页
返回列表 发新帖
查看: 6791|回复: 26

号外::高亮标签 更新 [pre]代码[/pre] 【20190918】

[复制链接]
绿色风
发表于 2018-8-19 21:20:24 | 显示全部楼层 |阅读模式 
 
#NoTrayIcon
#include <array.au3>
#include <IE.au3>
#include <IEEx.au3>
$oIE = _IEAttach 
$oIE1 = _IEFrameGetObjByName($oIE, "ifIndex") ;获取主页框架
$oIE2 = _IEFrameGetObjByName($oIE1, "mainFrame") ;获取右铡框架



之前因DZ升级，导致以前插件不能使用，现在已恢复

原  au3 标签暂时 还未修复，使用新的吧。
插件自动识别所使用的语言

dz现在后台应用强制要绑定账户，并换应用服务器，

还有 DZ 凝似换东家的了。

---------------------------------------------------
技术有限，搞了一晚上，还有个入口没找到，就不好修复 au3 标签的了。





回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
绿色风
 楼主| 发表于 2018-8-19 21:53:43 | 显示全部楼层 
@echo off&mode con cols=55 lines=5&color 1a&SETLOCAL ENABLEDELAYEDEXPANSION
title 通杀P(拖入你要删除的东东)  非常批处理⑥群  风哥制作 
::===============================================================
:: 转载请说明出处：
:: -------------------------------------------------------------
::         非常批处理交流论坛         [url]http://bbs.verybat.org[/url] 
:: -------------------------------------------------------------
::      不是最好的,但绝对是实用的批处理          -=绿色风=-
::=============================================================== 
set a=%~1
if not defined a (goto :1)
del  /f /q  "\\?\%a%"
RD /S /Q  "\\?\%a%"
echo 清除 %1 OK....
ping -n 2 127.1>nul
exit

:1
echo.
echo     对不起，本P为拖放式P程序，只要将你要删除的
echo.
echo 文件夹或文件夹拖入至本P的程序上就行了。
ping -n 3 127.1>nul
exit



回复

举报

绿色风
 楼主| 发表于 2018-8-19 22:05:42 | 显示全部楼层 
 #include <array.au3>
#include <IE.au3>
#include <IEEx.au3>
$oIE = _IEAttach 
$oIE1 = _IEFrameGetObjByName($oIE, "ifIndex") ;获取主页框架
$oIE2 = _IEFrameGetObjByName($oIE1, "mainFrame") ;获取右铡框架

 #include <array.au3>
#include <IE.au3>
#include <IEEx.au3>
$oIE = _IEAttach 
$oIE1 = _IEFrameGetObjByName($oIE, "ifIndex") ;获取主页框架
$oIE2 = _IEFrameGetObjByName($oIE1, "mainFrame") ;获取右铡框架




回复

举报

绿色风
 楼主| 发表于 2018-8-19 22:07:18 | 显示全部楼层 
#include <Access.au3>
 #include 'MSSQL.au3'
 #include <GUIListView.au3>
 #include <GuiImageList.au3>
 #include <GUIConstantsEx.au3>
 #include <WindowsConstants.au3>

 Global $iIP = '127.0.0.1,1220' ; IP地址
Global $sUserName = 'sa' ; 连接帐号
Global $sPassWord = 'admin' ; 连接密码
Global $sDatabase = 'MYDB' ; 数据库名
Global $sTableName = 'TestTable1' ; 表名称

$sqlCon = _MSSQL_Con($iIP, $sUserName, $sPassWord, $sDatabase)

 GUICreate('MSSQL - 数据库操作例子', 800, 600)
 $ListView1 = GUICtrlCreateListView('ID|第一列|第二列|第三列|第四列|第五列', 5, 5, 790, 540, -1, _
                 BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_REPORT))
 _GUICtrlListView_SetColumnWidth($ListView1, 0, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 1, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 2, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 3, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 4, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 5, 130)

 $hImage = _GUIImageList_Create(1, 25)
 _GUICtrlListView_SetImageList($ListView1, $hImage, 1)

 $Button1 = GUICtrlCreateButton('创建表', 10, 560, 100, 30, 0)
 $Button2 = GUICtrlCreateButton('写入数据', 130, 560, 100, 30, 0)
 $Button3 = GUICtrlCreateButton('读取数据', 250, 560, 100, 30, 0)
 $Button4 = GUICtrlCreateButton('更新数据', 370, 560, 100, 30, 0)
 $Button5 = GUICtrlCreateButton('删除数据', 490, 560, 100, 30, 0)
 $Button6 = GUICtrlCreateButton('查找数据', 610, 560, 100, 30, 0)
 GUISetState()

 While 1
         $nMsg = GUIGetMsg()
         Switch $nMsg
                 Case -3
                         ; 关闭数据库连接
                        _MSSQL_End($sqlCon)
                         Exit
                 Case $Button1
                         ; 在数据库中创建表的同时创建相应的列
                        _MSSQL_CreateTable($sqlCon, $sTableName, False, 'ID char(17),第一列 Text,第二列 Text,第三列 Text,第四列 Text,第五列 Text')

                 Case $Button2;写入
                        Local $aValue[6]
                         $aValue[0] = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
                         $aValue[1] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[2] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[3] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[4] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[5] = '添加数据 - ' & Random(100, 999, 1)
                         
                         $sText = _ArrayToString($aValue)
                         GUICtrlCreateListViewItem($sText, $ListView1)
                         _MSSQL_AddRecord($sqlCon, $sTableName, $aValue)
                         
                 Case $Button3 ;读取
                        _MYSQL_ReadDataToList($sqlCon, $sTableName)

                         
                 Case $Button5 ;删除
                        $iIndex = GUICtrlRead($ListView1)
                         If $iIndex Then
                                 $sItemText = GUICtrlRead($iIndex)
                                 $iID = StringRegExpReplace($sItemText, '\|.+', '')
                                 GUICtrlDelete($iIndex)
                                 _MSSQL_DeleteRecord($sqlCon, $sTableName, $iID, 'ID')
                         EndIf
                         
                         
                 Case $Button4 ;更新
                        $iIndex = GUICtrlRead($ListView1)
                         If $iIndex Then
                                 $sItemText = GUICtrlRead($iIndex)
                                 $iID = StringRegExpReplace($sItemText, '\|.+', '')
                                 GUICtrlDelete($iIndex)
                                 $iNumber = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
 ;~                                 _MSSQL_UpdateRecord($sqlCon, $sTableName, "ID", $sValue, "WHere ID = '" & $iID & "'")
                                 
                                 Local $aColumn[6] ; 需要更新数据的列名，位置与下面的更新的值对齐，数量必须相同。
                                $aColumn[0] = 'ID'
                                 $aColumn[1] = '第一列'
                                 $aColumn[2] = '第二列'
                                 $aColumn[3] = '第三列'
                                 $aColumn[4] = '第四列'
                                 $aColumn[5] = '第五列'
                                 
                                 Local $aNewValue[6] ; 新的数据，位置与上面的列对齐，数量必须相同。
                                $aNewValue[0] = $iNumber
                                 $aNewValue[1] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[2] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[3] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[4] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[5] = '更新数据 - ' & Random(100, 999, 1)
                                 
 ;~                                 $aNewValue[1] = Random(100, 9999, 1)
 ;~                                 $aNewValue[2] = Random(100, 9999, 1)
 ;~                                 $aNewValue[3] = Random(100, 9999, 1)
 ;~                                 $aNewValue[4] = Random(100, 9999, 1)
 ;~                                 $aNewValue[5] = Random(100, 9999, 1)                                
                                 
                                 _MSSQL_UpdateRecordEx($sqlCon, $sTableName, $aColumn, $aNewValue, $iID)
                                 _MYSQL_ReadDataToList($sqlCon, $sTableName)
                         EndIf
                 Case $Button6 ;查找
                        $aFindData = _MSSQL_GetRecord($sqlCon, $sTableName, '第五列', 'WHere ID = ' & "'580'")
                         _ArrayDisplay($aFindData)
         EndSwitch
 WEnd

 Func _MYSQL_ReadDataToList($sqlCon, $sTable)
         Local $sText
         _GUICtrlListView_BeginUpdate($ListView1)
         GUICtrlSendMsg($ListView1, 4105, 0, 0)
         $aRecord = _MSSQL_GetRecord($sqlCon, $sTable)
         For $i = 1 To UBound($aRecord) - 1
                 For $z = 0 To 5
                         $sText &= $aRecord[$i][$z] & '|'
                 Next
                 GUICtrlCreateListViewItem($sText, $ListView1)
                 $sText = ''
         Next
         _GUICtrlListView_EndUpdate($ListView1)
 EndFunc   ;==>_MYSQL_ReadDataToList
回复

举报

zldfsz
发表于 2018-8-19 22:13:02 | 显示全部楼层
颜色出来了
回复

举报

绿色风
 楼主| 发表于 2018-8-19 22:25:27 | 显示全部楼层
zldfsz 发表于 2018-8-19 22:13
颜色出来了

方法没变
回复

举报

繁星
发表于 2018-8-19 22:26:47 | 显示全部楼层
颜色是出来了，但这有颜色区别不明显，看着点丑哇，死气沉沉，来点喜气，感觉背景色换城黑色就明显了
回复

举报

绿色风
 楼主| 发表于 2018-8-19 22:30:36 | 显示全部楼层
繁星 发表于 2018-8-19 22:26
颜色是出来了，但这有颜色区别不明显，看着点丑哇，死气沉沉，来点喜气，感觉背景色换城黑色就明显了

那个要调调
回复

举报

afan
发表于 2018-8-19 22:31:38 | 显示全部楼层
IE8 还是黑白…
回复

举报

志艺风云
发表于 2018-8-19 22:55:05 | 显示全部楼层
还是AU3旧版颜色区别最明显
回复

举报

chzj589
发表于 2018-8-19 23:04:21 | 显示全部楼层
本帖最后由 chzj589 于 2018-8-19 23:15 编辑 


#include <StaticConstants.au3>
#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
Opt("GUIOnEventMode", 1)
Global $Form2, $Label1, $Button, $Input1, $Input2, $Input3, $Input4
Global $aColorCode[16] = [0x000000, 0xFFFFFF, 0xF27D00, 0x009900, 0x00FFFF, 0xFF0000, 0xCBAC00, 0x8600FF, 0x00FF66, 0xFFFF00, 0xADD4FF, 0xFCDAD5, 0xC0C0C0, 0x2BD55E, 0x0000FF, 0xEEEEEE]
Global $aColorCode1[16] = [0xCCCCCC, 0x00FFFF, 0x241CED, 0xC9AEFF, 0x277FFF, 0x0EC9FF, 0x00F2FF, 0xB0E4EF, 0x4CB122, 0x1DE6B5, 0xE8A200, 0xEAD999, 0xCC483F, 0xBE9270, 0xA449A3, 0xE7BFC8]

Example()
While 1
        Sleep(1000)
WEnd
Func Example()
        $Form2 = GUICreate("窗体1", 413, 305, 302, 218)
        GUISetOnEvent($GUI_EVENT_CLOSE, "btnClose")
        $Label1 = GUICtrlCreateLabel("如何读取文字颜色和背景色？", 48, 88, 316, 33)
        GUICtrlSetBkColor($Label1, $COLOR_RED);0xFF0000)
        GUICtrlSetColor($Label1, 0x277FFF);0x990000)
        GUICtrlSetFont(-1, 16, 800, 0, 'Arial')
        GUICtrlSetOnEvent($Label1, "_RGB1")
        $Button = GUICtrlCreateButton("读取颜色", 30, 200, 70, 25)
        GUICtrlSetColor($Button, 0x990000)
        GUICtrlSetBkColor($Button, 0x277FFF)
        GUICtrlSetOnEvent($Button, "_RGB")
        $Input1 = GUICtrlCreateInput("标签文字背景颜色", 104, 200, 121, 21)
        $Input2 = GUICtrlCreateInput("标签文字前景颜色", 240, 200, 121, 21)
        $Input3 = GUICtrlCreateInput("标签文字背景颜色", 104, 230, 121, 21)
        $Input4 = GUICtrlCreateInput("标签文字前景颜色", 240, 230, 121, 21)
        GUISetState(@SW_SHOW)
EndFunc   ;==>Example
Func btnClose()
        GUIDelete()
        Exit
EndFunc   ;==>btnClose




“怪了大写还不行“



回复

举报

顽固不化
发表于 2018-8-19 23:08:02 | 显示全部楼层
本帖最后由 顽固不化 于 2018-8-19 23:11 编辑

原来代码复制后粘贴到编辑器里，每行的前导空格或者tab，都会变成“？”。只有粘贴到word里，然后再拷一次沾到编辑器里。
回复

举报

afan
发表于 2018-8-19 23:13:55 | 显示全部楼层
顽固不化 发表于 2018-8-19 23:08
原来代码复制后粘贴到编辑器里，每行的前导空格或者tab，都会变成“？”。只有粘贴到word里，然后再拷一次 ...

pm 你了      
回复

举报

顽固不化
发表于 2018-8-19 23:28:47 | 显示全部楼层
afan 发表于 2018-8-19 23:13
pm 你了

老大收到。很给力！
回复

举报

229989799
发表于 2018-8-20 09:01:34 | 显示全部楼层
测试看看
 msgbox (0,"1","2")
ddddd
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 20:49 , Processed in 0.078800 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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