号外::高亮标签 更新 [pre]代码[/pre] 【20190918】
#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 标签的了。
@echo off&mode con cols=55 lines=5&color 1a&SETLOCAL ENABLEDELAYEDEXPANSION
title 通杀P(拖入你要删除的东东)非常批处理⑥群风哥制作
::===============================================================
:: 转载请说明出处：
:: -------------------------------------------------------------
:: 非常批处理交流论坛 http://bbs.verybat.org
:: -------------------------------------------------------------
:: 不是最好的,但绝对是实用的批处理 -=绿色风=-
::===============================================================
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
#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") ;获取右铡框架
#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
$aValue = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
$aValue = '添加数据 - ' & Random(100, 999, 1)
$aValue = '添加数据 - ' & Random(100, 999, 1)
$aValue = '添加数据 - ' & Random(100, 999, 1)
$aValue = '添加数据 - ' & Random(100, 999, 1)
$aValue = '添加数据 - ' & 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 ; 需要更新数据的列名，位置与下面的更新的值对齐，数量必须相同。
$aColumn = 'ID'
$aColumn = '第一列'
$aColumn = '第二列'
$aColumn = '第三列'
$aColumn = '第四列'
$aColumn = '第五列'
Local $aNewValue ; 新的数据，位置与上面的列对齐，数量必须相同。
$aNewValue = $iNumber
$aNewValue = '更新数据 - ' & Random(100, 999, 1)
$aNewValue = '更新数据 - ' & Random(100, 999, 1)
$aNewValue = '更新数据 - ' & Random(100, 999, 1)
$aNewValue = '更新数据 - ' & Random(100, 999, 1)
$aNewValue = '更新数据 - ' & Random(100, 999, 1)
;~ $aNewValue = Random(100, 9999, 1)
;~ $aNewValue = Random(100, 9999, 1)
;~ $aNewValue = Random(100, 9999, 1)
;~ $aNewValue = Random(100, 9999, 1)
;~ $aNewValue = 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
颜色出来了
方法没变
颜色是出来了，但这有颜色区别不明显，看着点丑哇，死气沉沉，来点喜气，感觉背景色换城黑色就明显了 繁星 发表于 2018-8-19 22:26
颜色是出来了，但这有颜色区别不明显，看着点丑哇，死气沉沉，来点喜气，感觉背景色换城黑色就明显了
那个要调调
IE8 还是黑白… 还是AU3旧版颜色区别最明显 本帖最后由 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 =
Global $aColorCode1 =
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:11 编辑
原来代码复制后粘贴到编辑器里，每行的前导空格或者tab，都会变成“？”。只有粘贴到word里，然后再拷一次沾到编辑器里。 顽固不化 发表于 2018-8-19 23:08
原来代码复制后粘贴到编辑器里，每行的前导空格或者tab，都会变成“？”。只有粘贴到word里，然后再拷一次 ...
pm 你了 afan 发表于 2018-8-19 23:13
pm 你了
老大收到。很给力！ 测试看看
msgbox (0,"1","2")
ddddd
页:
[1]
2