Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Из vbs результат в реестр (http://forum.oszone.net/showthread.php?t=259050)

x4ekuctx 20-04-2013 17:10 2136448
Из vbs результат в реестр
 
Здравствуйте есть вот такой скрипт
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid

Он генерирует GUID, как сделать так чтобы он не показывал GUID , а записывал его в реестр?

Iska 20-04-2013 18:29 2136499
Цитата:
Цитата x4ekuctx
а записывал его в реестр? »
SetStringValue method of the StdRegProv class (Windows)

x4ekuctx 20-04-2013 23:17 2136695
Не могу понять как именно сгенерированный GUID внести в какой то параметр

сгенерировался например случайный guid {aecfd88b-7975-4b1f-860e-0b3eb3a2d6eb} скрипт который выше, показывает мне его.А мне нужно что бы он мне его не показывал а в нес в какой то параметр.Помогите пожалуйста.

Iska 20-04-2013 23:49 2136711
x4ekuctx, приведите наименование раздела и параметра реестра.

x4ekuctx 20-04-2013 23:55 2136713
В любую ветку пока не имеет значение нужно внести GUID как строковой параметр

Iska 21-04-2013 00:15 2136721
Код:
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")
        If .SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "My Parameter", WScript.CreateObject("Scriptlet.TypeLib").Guid) = 0 Then
                WScript.Echo "Success"
        Else
                WScript.Echo "Failed"
        End If
End With

WScript.Quit 0

x4ekuctx 22-04-2013 10:29 2137438
Спасибо огромное за помощь! Возможно ли добавить guid в строковый параметр в таком виде: http://сайт.ru/id= (здесь GUID)?=stranichka.php ?

Iska 23-04-2013 13:27 2138218
Понятно. Значение GUID возвращается с паразитными (?) двумя символами в конце.
Код:
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strGUID


strGUID = Left(WScript.CreateObject("Scriptlet.TypeLib").Guid, 38)

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")
        If .SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "My Parameter", "http://сайт.ru/id= (" & strGUID & ")?=stranichka.php") = 0 Then
                WScript.Echo "Success"
        Else
                WScript.Echo "Failed"
        End If
End With

WScript.Quit 0

x4ekuctx 24-04-2013 16:54 2138961
Спасибо огромное!!!

Andy_BooM 25-05-2013 19:27 2156193
помогите с кодом. после нажатия кнопки не выводит окна.
<html>
<head><title>Цикл в VBScript</title>
<script language="VBScript">
Sub but_onclick
dim x,n,sl,s
x=inputbox("Введите x",3)
n=window.prompt("Введите n",1)
sl=x:s=sl
for i=1 to n
sl=exp((i+1)*ln(x))/sqr(2*i-1):s=s+sl
NEXT
MsgBox "sum of row=" & s
End Sub
</script>
</head>
<body><h2>Л.р. №19: Цикл For в JavaScript</h2>
<hr>
Найти сумму <b><i>n</i></b> элеиентов ряда <b><i>x^(i+1)/(2i-1)^2</i></b> при произвольном
<b><i>x</i></b> и начальном значении <b><i>i=0</i></b>.<br>
Для ввода <b><i>x</i></b> и <b><i>n</i></b> использовать диалоговое окно ввода.<br>
Результат представить в окне сообщения.
<form>
<input type="button"NAME="butt" VALUE="Start"onclick="but()">
</form></body></html>

Iska 25-05-2013 20:25 2156219
Andy_BooM, какое отношение Ваш вопрос имеет к данной теме? Заведите для него новую тему, если не найдёте подходящей.

И ознакомьтесь с использованием тэга [code].

mrcnn 26-05-2013 03:22 2156367
onclick="but_onclick();">


Время: 19:49.

Время: 19:49.
© OSzone.net 2001-