Igrice i igre

Indeks » MyCity » Visual Studio -> Visual Basic » URL komanda za kameru

URL komanda za kameru

Napisano na dan: 9.3.2011, pogledaj vesti za 09. Mar 2011.

URL komanda za kameru
Sledeća strana Pagination

Idi na vrh

Poslao: 09 Mar 2011 07:28 Idi na vrh
offline
  • Pridružio: 09 Mar 2011
  • Poruke: 5
Uloguj se preko Facebooka i postavi pitanje:
Pozdrav

Za početak, ne znam skoro ništa o programiranju.

Ali se nadam da je ovo što tražim jednostavno!

Imam IP kameru i imam URL komande za sva podešavanja. Kako da napišem kod koji bi jednim klikom izvršio URL naredbu (jednu ili više)?

Tipična naredba je

http://www.<ip_address>.com/cgi-bin/admin/se....._mode=save

Hvala unaprijed na pomoći.
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 09 Mar 2011 19:59 Idi na vrh
offline
  • bocke  Male
  • Moderator foruma
  • Glavni moderator Linux foruma
  • Bojan Popović
  • Pridružio: 16 Dec 2005
  • Poruke: 9651
  • Gde živiš: Beograd
  • Blog: Mixtape(s)
Uloguj se preko Facebooka i postavi pitanje:
Adresa je verovatno nešto ala:
http://192.168.1.10/cgi-bin/admin/setparam.cgi?Ima....._mode=save

Da bi uopšte mogao da postaviš neko podešavanje web kamere trebalo bi da se skript uloguje, dobije podatke o sesiji, a zatim ih iskoristi za get upit za promenu prametara.

Sam skript bez dela sa loginom (ono što si ti tražio, a ne ono što ti treba) bi mogao da izgleda ovako (napisan u VBScriptu koji već imaš instaliran - dolazi uz Windows).

change_brightness.vbs
Dim Metod
Dim URL
Dim Upit
Dim Odgovor
Dim Klijent

Metod = "GET"
URL = "http://192.168.1.10/cgi-bin/admin/setparam.cgi?Image_brightness=2@image_mode=save"
Klijent = "Mozilla/4.0 (compatible)"

set HttpReq = CreateObject("WinHttpRequest.5.1")

HttpReq.Open Metod, URL, False

HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HttpReq.Option(0) = Klijent
HttpReq.Option(4) = 13056 REM Ignorisi sve SSL greske
HttpReq.Option(5) = True   REM Omoguci redirekciju
HttpReq.Option(12) = True REM Omoguci redirekciju https na http

HttpReq.Send
HttpReq.WaitForResponse

Status = HttpReq.Status
TekstStatusa = HttpReq.StatusText

Wscript.StdOut.WriteLine Status & " "  & TekstStatusa

Btw, ovde nigde ne vršim proveru za greške. Iako skript na kraju prikazuje status.

VBScript je vrlo jednostavan jezik i bilo bi relativno lako ovo proširiti za neku ozbiljniju potrebu. Jedini komplikovaniji deo (po onome što sam gledao) je ekstraktovanje ccokie-ja sesije. Mada nisam probao i ne znam da li može i bez toga.

Kako se pokreće ovo:
cscript change_brightness.vbs

Ili preko prečice:
Desni klik na fajl -> Create Shortcut
Desni klik na prečicu -> Properties -> Shortcut
U polju target ispred pune staze datoteke dodaš cscript.

Sada se klikom na prečicu automatski pokreće skript.

Dupli klik direktno na skript neće uspeti jer dupli klik koristi gui verziju Windows Script Hostinga, a nama je za ovo potrebna konzolna verzija (koja ne prikazuje dijaloge i gui elemente).
Poslao: 10 Mar 2011 00:48 Idi na vrh
offline
Uloguj se preko Facebooka i postavi pitanje:
mislim da web interfejsi (na primer u ruterima) ne postavljaju
klasične kukije već samo za autentikaciju Question
Poslao: 10 Mar 2011 01:10 Idi na vrh
offline
  • bocke  Male
  • Moderator foruma
  • Glavni moderator Linux foruma
  • Bojan Popović
  • Pridružio: 16 Dec 2005
  • Poruke: 9651
  • Gde živiš: Beograd
  • Blog: Mixtape(s)
Uloguj se preko Facebooka i postavi pitanje:
U tom slučaju je mnogo jednostavnije. Može se ići na osnovnu autentikaciju, a to se već nalazi u WinHttpRequest.
Poslao: 10 Mar 2011 13:46 Idi na vrh
offline
  • Pridružio: 09 Mar 2011
  • Poruke: 5
Uloguj se preko Facebooka i postavi pitanje:
Probao sam skruptu (iako je ne kontam) i javlja grešku.

Instalirao sam VisualStudio 2008 i našao djelimično rješenje, i počeo da kontam kako radi VB.

Našao sam jedan dobar kod, koji sam malo izmijenio za sebe:

/code:
Imports System.Net
Imports System.IO

Public Class Form1

Dim URL As String
Dim webHTTP As New WebBrowser

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
URL = String.Concat("http://", TextBox1.Text, ".", TextBox2.Text, ".", TextBox3.Text, ".", TextBox4.Text, "/cgi-bin/admin/setparam.cgi?Image_contrast=", TextBox6.Text, "&image_mode.value=save")
webHTTP.Navigate(URL)
Catch ex As Exception
MsgBox("Greška u komunikaciji!", MsgBoxStyle.Critical, "Greška!")
TextBox1.Focus()
End Try

End Sub
End Class

Imam jedan divan prozorčić u koji upišem adresu i vrijednost koju hoću da podesim (textbox6) kliknem "pošalji" i to ode...

Međutim sada imam drugi problem. Kako učitati podešenu vrijednost? Ja imam komandu GETPARAM imjesto SETPARAM (iz gornjeg linka) i on npr. u eksploreru ispiše podešenu vrijednost. E kako tu vrijednost učitati u neki textbox?


Hvala na trudu, iskreno.
Poslao: 17 Apr 2012 14:38 Idi na vrh
offline
  • Pridružio: 05 Jan 2012
  • Poruke: 20
Uloguj se preko Facebooka i postavi pitanje:
Dim Klijent As New WebClient
TextBox1.Text = Klijent.DownloadString("adresa")

Potreban je samo minut da se registrujete - da biste učestvovali u diskusiji:
Izaberite vaše korisničko ime [username] :
Vaša email adresa je [email] : Email adresa mora biti tačna!
Ukucajte željenu šifru [password] :
Ukucajte šifru ponovo [password again] :
Jezik [language] :



Ili se jednostavno uloguj preko Facebook-a:

Indeks » MyCity » Visual Studio -> Visual Basic » URL komanda za kameru

Ko je trenutno na forumu
 

Ukupno su 595 korisnika na forumu :: 100 registrovanih, 9 sakrivenih i 486 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1311 - dana 15 Nov 2012 21:40

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A kandic, Acid_Burn, Aki-sony, Aleksandar Tomić, Alexander Nevsky, Alien vs Predator, Arhiv, awathorn, benjo34, bigfoot2, BlekMen2, bobaivkovic, bobby, bosmilan, Branislav Rebic, bubrija2, BukefalWing, bulovic, Buzdovan2, CheefCoach, Chuck Norris, Cili2, cojapop, cyber fulkrum, Danko SVIK VRS, Darko Matuško, deri3891, Dicus, Djokkinen, Dragan Brajkovic Gale, drgnk, Dzedaj2, eliminator, eradonko, Gama, Gerilac, GSI, herrDule, Inwires, Ivan Gajic2, ivan979, ivanb, jednoruki krstivoje, John A Zoidberg, kljift, klodovik, kublaj, Lieutenant, lovac12, m4rk0, magna86, MB120mm, Milan Kosić, Milenko Vujinovic, monomah, mpman, nebkv, Nebojsa Gabric, nemanja066, nemezisx, Nikola Gajić, nikolester, nizam, pavlo2, prashinar, Radomir Đerić, robertino, robinzon kruso, rovac, S-lash, scimitar19, sevenino, shone34, SlobaBgd, Slobodan Filipović, srecko81, Srki94, suton, tdex, Teho, TheDelliRus, trutcina, TwinHeadedEagle, ujkozavlanje, vessto_coda, veteran_rs, virked, vlastren, Voja1978, voja64, weez, White Knight, Wincha, yrraf, YU-UKI, Zoka Znachi Zlo Mitrovic, Zoran Marinkovic, Zoran Rapajić, zoro+, Žan Klod vam dam
VPS