你说的太对了,我他妈给省了那么多钱,最后还不落好...
简单写个序:为公司省钱往往省不到自己身上,在某些方面,往往还会使自己的价值更低,省钱的好不一定会被公司记住,但因此而产生的风险和黑锅肯定是由自己来背。花钱是为了创造更多更好的价值,所以不要替公司省钱,要为公司提供更好的产品。详细说明可见如下讨论文章: 其实老早就想写写了。但是一直...
还有 3 人发表了评论 加入7056人围观简单写个序:为公司省钱往往省不到自己身上,在某些方面,往往还会使自己的价值更低,省钱的好不一定会被公司记住,但因此而产生的风险和黑锅肯定是由自己来背。花钱是为了创造更多更好的价值,所以不要替公司省钱,要为公司提供更好的产品。详细说明可见如下讨论文章: 其实老早就想写写了。但是一直...
还有 3 人发表了评论 加入7056人围观窗口一个按钮,一个文本,简洁代码短少
Private Sub Command1_Click()
Dim s As String, S1 As String
s = Environ("temp")
'这里是写入
Open s & "\abc.txt" For Output As #1
Print #1, Text1
Close #1
'这里是读入
一、快速读取txt,空白内容则会出错。
1、建立模版
Function GetFile(FileName As String) As String
Dim i As Integer, s As String, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Sub KillProcess(ByVal ProcessName As String)
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
建立托盘命名为Popup,再建立Picture1命名为Pic
Private Type NOTIFYICONDATA
cbSize As Long
<form action="64.php" method="GET">
<p>base64密文: <input type="text" name="code" />
<input value="给我转" type="submit" /><p>
</form>
1、登录login.php 用户admin密码123456
<?php
session_start();
1、窗口新建立一个Picture1命名为 Pci 然后在里面选择你采用的托盘图标。