Androidの伺か - デフォルトゴースト 追加シェル

▲2019/03/10

「Androidの伺か」作者様のリンク先が更新されていたので、対応しました

スマートフォンアプリ「Androidの伺か」のデフォルトゴーストである
「安藤さん」の追加シェルを公開しています。

元画像はイチボシ様のフリーシェル「Lamb」です
これに表情差分の追加とsurfaces.txt追加編集およびsurfacetable.txt追加編集を行いました。
魅力的なフリーシェルを公開いただいたイチボシ様、ありがとうございます


マスターシェルと見かけの差が多いので、トーク内容に違和感があるかもしれません。
アプリ製作者である でんでんファクトリー様にてご対応いただいている場合もありますのでそちらもご参照ねがいます。
シェルとスクリプトのすり合わせで、ご多忙にもかかわらず時間を割いていただき
ありがとうございます

本追加シェルへの積極的な保守は行いませんのでご承知おきください

---------- 追加シェル「eSheep.zip Ver.01-02」 ----------

Ukagaka for Android Additional Shell

--eod--

VBS to send NumLock signal every ten minutes

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")
i = 0

Do While i = 0
        objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
        WScript.Sleep 1000*60*10
Loop
' -End of Source-

VBS to rename multiple files

Option Explicit

' +-------------------------------------------------------------------
' | Basically this statemants are Non-Sense.
' | The filename(s) is(are) passed Via FileDrop or Via [SendTo] context menu
' +-------------------------------------------------------------------
if WScript.Arguments.Count< 1 then
        WScript.echo("Please assign File(s), One or more")
        WScript.Quit(-1)
end if

' +-------------------------------------------------------------------
' | Specify the character(s) you want to rename
' +-------------------------------------------------------------------
Dim    Char_Before

Char_Before = InputBox("Enter character(s) you want to rename")

' +-------------------------------------------------------------------
' | Specifiy new character(s)
' +-------------------------------------------------------------------
Dim        Char_After

Char_After = InputBox("Enter New character(s)" & vbCrLf & "! If NONE, Means character(s) deletion")

Dim        objFSO
Dim        Char_FileName_Before
Dim        Char_FileName_After

Set obJFSO = CreateObject("Scripting.FileSystemObject")

' +-------------------------------------------------------------------
' | If processing filename does not include character(s) to be renamed,
' | Then skip rename process
' +-------------------------------------------------------------------
Dim        Cnt
Dim        ReplaceCounter: ReplaceCounter = 0

For Cnt=0 To WScript.Arguments.Count-1:Do
        Char_FileName_Before = objFSO.GetFileName(WScript.Arguments(Cnt))
        Char_FileName_After  = Replace( Char_FileName_Before, Char_Before, Char_After )

        if Char_FileName_After = Char_FileName_Before Then Exit Do

        objFSO.GetFile(WScript.Arguments(Cnt)).name = Char_FileName_After
        ReplaceCounter = ReplaceCounter +1
Loop Until 1:Next

' +-------------------------------------------------------------------

WScript.echo( ReplaceCounter & "_File(s) is(are) Renamed" )
Set objFSO = nothing