VBS - Visual Basic Scripting Edition A&Q

[IceBox]

Приветствую вас !

[Utkin]

Бот что ли?

[Человек_Борща]

он самый Предлагаю банить)

[IceBox]

Нет,не бот. Просто хочется об VBS и об C# поболтать ...

Т.Е. не BS а VBS

Используется VBS код:

MsgBox "Привет !"
DIM Name
DIM WhatToDo
Set WshShell = CreateObject("WScript.Shell")
Name = InputBox ("Ты кто ?", "")
MsgBox "Привет, "+Name+"!"
WhatToDo = InputBox ("1 = открыть блокнот. 2 = открыть калькулятор. 3 = открыть google.","Что сделать ?")
If WhatToDo = "1" then
WshShell.Run "notepad"
WScript.Sleep 500
WshShell.AppActivate "notepad" 
End If
If WhatToDo = "2" then
WshShell.Run "calc.exe"
WScript.Sleep 500
WshShell.AppActivate "calc" 
End If
If WhatToDo = "3" then
WshShell.Run "http://google.com/"
End If

Известно ли кому, как в VBS сделать следующее:
1. Открыть блокнот ( это понятно)
2. Написать там автоматически РУССКИЙ текст. (у меня раскладка стандартная - англ. т.е. не могу, но можно ли это как-либо обойти ?)

[Человек_Борща]

для таких тем существуют спец. разделы форума, и название тоже должно отражать содержание.

[kvitaliy]

Сообщение от IceBox

Известно ли кому, как в VBS сделать следующее:
1. Открыть блокнот ( это понятно)
2. Написать там автоматически РУССКИЙ текст. (у меня раскладка стандартная - англ. т.е. не могу, но можно ли это как-либо обойти ?)

Можно сделать так:

'***************************************
' wscript shell SendKeys
' имитация нажатия клавиш в блокноте
' SendKeys.vbs
'***************************************
Option Explicit
 
Dim WshShell, my_arr(16), index
 
' Создаем ссылку на объект
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'Определяем элементы массива
my_arr(0) = "Э"
my_arr(1) = "т"
my_arr(2) = "о"
my_arr(3) = "{ENTER 2}"
my_arr(4) = "п"
my_arr(5) = "р"
my_arr(6) = "о"
my_arr(7) = "с"
my_arr(8) = "т"
my_arr(9) = "о"
my_arr(10) = "й"
my_arr(11) = "{ENTER 2}"
my_arr(12) = "т"
my_arr(13) = "е"
my_arr(14) = "к"
my_arr(15) = "с"
my_arr(16) = "т"
 
' Запускаем программу блокнот
WshShell.Run "Notepad.exe", 1
 
'Делаем задержку в 2 секунды
WScript.Sleep 2000       
 
' Используем цикл для перебора элементов массива
For each index in my_arr
     ' Имитируем нажатие клавиши
     WshShell.SendKeys(index)
     ' Делаем задержку в 500 миллисекунд
     WScript.Sleep 500
Next
 
MsgBox "Конец теста!"

Хотя если только английская раскладка, то в результате не уверен. Если текущая кириллица, то работает точно.

[Человек_Борща]

что за гемморой с массивами? А записать в строку?
что-то типа такого:

Dim str,i,c
Set sh = CreateObject("WScript.Shell")
sh.Run "Notepad++"
sh.sleep 500
sh.AppActive "new 1 - Notepad++"

str = "Привет мир! | Это новая строка"

For i=1 to Len(str)
	c = ""
	c = Mid(str,i,1)
	If c == "|" Then
		c = "{ENTER}"
	End If
	sh.SendKeys(c)
	sh.Sleep 500
	next

[IceBox]

Жаль ... Как в VBS сделать новую строку ? НАПРИМЕР: "TEXTline1 [Чем обозночается] TEXTline2"

[IceBox]

Сообщение от Человек_Борща

для таких тем существуют спец. разделы форума

Ссылку дай пожалуйста .