В русской Windows XP - вкладка свойства - сводка - поля Автор, Комментарий, Ключевые слова и т.д.
В англ Windows XP - Properties - Summary - Comments и т.д.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Выпуск # 654Приветствую вас, любители высоких технологий! Вот и очередной выпуск рассылки. За неделю на сайте появилось много новых и интересных материалов, некоторые из которых вы сможете увидеть в этом выпуске. Содержание выпускаЧитайте в этом выпуске: Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.Форумы Kbyte.RuНа форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки. Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий. Задать свой вопрос прямо сейчас Свойства файла @pnevskikh 25.08.2011 06:45 Доброе время суток! Подскажите, плиз, как задать свойства файла? В русской Windows XP - вкладка свойства - сводка - поля Автор, Комментарий, Ключевые слова и т.д. В англ Windows XP - Properties - Summary - Comments и т.д. Вопрос по статье
http://kbyte.ru/ru/Programming/Articles.aspx?id=62&mode=art При создании Класса VKAPI .vb потерялся - accessToken.Вроде все так сделал...Вот vb.net код Сlass VKAPI Public AccessToken As String = "" Private myVK As New VKAPI(AccessToken) Private profile As XmlDocument Private _accessToken As String = AccessToken Public UserId As Integer = 0 Dim qs As New NameValueCollection() Public Sub New(ByVal accessToken As String) Me.AccessToken = accessToken End Sub Ответ #1 @Aleksey Nemiro 23.08.2011 20:11 Какую именно ошибку выдает? Public Sub New(ByVal accessToken As String)такой код не должен приводить к конфликтам, но если дело в этом, то можно переименовать accessToken в конструкторе во что-нибудь другое Public Sub New(ByVal ac As String) Me.AccessToken = ac End Sub Private _accessToken As String = AccessTokenэто лишнее, ведь есть Public AccessToken As String = "" Ответ #2 @i32 24.08.2011 16:33 Может дело
в форме? Смысл еще открыл такой.(долго меня путал).Что Профиль и Стена грузятся и без / AccessToken/ А Фотка и Отправка на стену и Друзья уже не работают. Вот код с загрузкой /фотки/ и работающем /профелем/ Dim AccessToken As String = "" Dim VKAPI As String = AccessToken Dim profile As XmlDocument Dim myVK As New VKAPI(AccessToken) profile = myVK.GetProfile(TextBox3.Text) 'Nothing And Not String.IsNullOrEmpty(profile.SelectSingleNode("response/user/photo").InnerText)) profile.SelectSingleNode("response/user/photo") Dim PictureBox1 As PictureBox = New PictureBox() Dim wc As WebClient = New WebClient() PictureBox1.Visible = True Dim b() As Byte = wc.DownloadData(profile.SelectSingleNode("response/user/photo").InnerText) Dim m As MemoryStream = New MemoryStream(b) PictureBox1.Image = System.Drawing.Image.FromStream(m) PictureBox1.Width = PictureBox1.Height = 50 PictureBox1.Visible = True Me.Controls.Add(PictureBox1) Label1.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/first_name")) Label2.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/last_name")) Label3.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/uid")) Label4.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/city")) Label5.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/bdate")) Select Case GetDataFromXmlNode(profile.SelectSingleNode("response/user/sex")) Case "1" Label6.Text = "женский" Exit Sub Case "2" Label6.Text = "мужской" Exit Sub Case Else Label6.Text = "голубой" Exit Sub End Select А насчет отправки на стену такой отчет : Query string : access_token - пусто/ owner_id - 1 / count- message. Ответ #3 @Aleksey Nemiro 24.08.2011 18:23 Dim AccessToken As String = ""В данном случае AccessToken будет пустым. Нужно его передать с формы авторизации в форму, на которой происходит работа с API. Например, через конструктор. 'код формы, в которой будет происходить работа с API 'допустим Form1 Private AccessToken As String = "" Public Sub New(ByVal at As String) ' Этот вызов является обязательным для конструктора. InitializeComponent() 'передача AccessToken Me.AccessToken = at End Sub Код запуска формы (в форме авторизации, после входа) Dim frm As New Form1("сюда нужно передать полученный при авторизации AccessToken") frm.Show() 'или одной строкой Call New Form1("сюда нужно передать полученный при авторизации AccessToken").Show() Dim myVK As New VKAPI(Me.AccessToken) Скачивание с depositfiles @m2broth 22.08.2011 13:56 Как реализовать скачивание с depositfiles на c#? Добрый день! Столкнулся с проблемой так как в программирование не так уж давно только учуся. Делаю лаунчер для онлайн игры для собственного сервера, в нем предусмотрена регистрация аккаунта БД игрового сервера основана на Mssql. Проверку тоже реализовал но вот какое дело, если ввести который логин имеется он выдаст сообщение что такой логин есть а если повторно ввести логина которого не существует то он все равно пишет что такой логин есть не могу понять почему" Imports System.Data Imports System.Data.SqlClient Imports System.Security.Cryptography Imports System.Text Public Class Form1 Dim Connection As New SqlClient.SqlConnection Dim Command As New SqlClient.SqlCommand Dim Adaptor As New SqlClient.SqlDataAdapter Dim Dataset As New DataSet 'MD5 кодер Private Function StringtoMD5(ByVal Content As String) As String Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim UnicodeString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content) UnicodeString = M5.ComputeHash(UnicodeString) Dim FinalString As String = Nothing For Each bt As Byte In UnicodeString FinalString &= bt.ToString("x2") Next Return FinalString End Function Public Sub Connect() Connection.ConnectionString = "Data Source=SAMLAB;Initial Catalog=Auth;User ID=sa" Try Connection.Open() Catch ex As Exception MsgBox("Нет конекта" + ex.ToString, MsgBoxStyle.Critical) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim login As String Dim pass As String login = "'" & Me.TextBox1.Text & "'" pass = "'" & Me.TextBox3.Text & "'" If Len(TextBox1.Text) < 5 Or Len(TextBox2.Text) < 5 Then MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) Else Connect() Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';" Command.Connection = Connection Adaptor.SelectCommand = Command Adaptor.Fill(Dataset, "0") Dim count = Dataset.Tables(0).Rows.Count If count > 0 Then MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) TextBox1.Clear() TextBox2.Clear() Connection.Close() Else TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & login & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", Connection) cmd.ExecuteNonQuery() Connection.Close() MsgBox("Вы зарегестрированны") TextBox1.Clear() TextBox2.Clear() End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Ответ #1 @Aleksey Nemiro 16.08.2011 09:52 Скорей всего ошибка происходит из-за дубликатов кавычек: login = "'" & Me.TextBox1.Text & "'" Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';"Чтобы подобных ошибок даже теоретически не возникало, нужно использовать параметризованные запросы, это также решит проблему безопасности базы данных. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim login As String Dim pass As String login = "'" & Me.TextBox1.Text & "'" pass = "'" & Me.TextBox3.Text & "'" If Len(TextBox1.Text) < 5 Or Len(TextBox2.Text) < 5 Then MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) Else Connect() Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';" Command.Connection = Connection Adaptor.SelectCommand = Command Adaptor.Fill(Dataset, "0") Dim count = Dataset.Tables(0).Rows.Count If count > 0 Then MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) TextBox1.Clear() TextBox2.Clear() Connection.Close() Else TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & login & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", Connection) cmd.ExecuteNonQuery() Connection.Close() MsgBox("Вы зарегестрированны") TextBox1.Clear() TextBox2.Clear() End If End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text.Length < 5 OrElse TextBox2.Text.Length < 5 Then MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) Return ' выходим из процедуры End If Connect() Dim myCmd As New SqlCommand("SELECT COUNT(login_name) FROM [Accounts] WHERE login_name= @login_name", Connection) myCmd.Parameters.Add("@login_name", SqlDbType.NVarChar).Value = Me.TextBox1.Text If myCmd.ExecuteScalar() > 0 Then MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) TextBox1.Clear() TextBox2.Clear() Connection.Close() Return ' выходим из процедуры End If myCmd = New SqlCommand("INSERT INTO Accounts VALUES (@login, @pass, 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null)", Connection)'запрос может быть неправильным, т.к. не указан список колонок перед VALUES myCmd.Parameters.Add("@login", SqlDbType.NVarChar).Value = Me.TextBox1.Text 'желательно привести параметры к общему знаменателю, а то в первом запросе вместо login используется login_name myCmd.Parameters.Add("@pass", SqlDbType.NVarChar).Value = Me.TextBox2.Text myCmd.ExecuteNonQuery() Connection.Close() MsgBox("Вы зарегестрированны") TextBox1.Clear() TextBox2.Clear() End Sub Ответ #2 @rastamans 16.08.2011 12:19 Спасибо вам большое код рабочий. Немного в него добавил так мне надо было
чтоб пароль отправлялся в md5 Вот выложу полностью свой код может кому пригодится: Imports System.Data Imports System.Data.SqlClient Imports System.Security.Cryptography Imports System.Text Public Class Form1 Dim Connection As New SqlClient.SqlConnection Dim Command As New SqlClient.SqlCommand Dim Adaptor As New SqlClient.SqlDataAdapter Dim Dataset As New DataSet Public count 'MD5 кодер Private Function StringtoMD5(ByVal Content As String) As String Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim UnicodeString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content) UnicodeString = M5.ComputeHash(UnicodeString) Dim FinalString As String = Nothing For Each bt As Byte In UnicodeString FinalString &= bt.ToString("x2") Next Return FinalString End Function Public Sub Connect() Connection.ConnectionString = "Data Source=SAMLAB;Initial Catalog=Auth;User ID=sa" Try Connection.Open() Catch ex As Exception MsgBox("Нет конекта" + ex.ToString, MsgBoxStyle.Critical) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text.Length < 5 OrElse TextBox2.Text.Length < 5 Then MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) Return ' выходим из процедуры End If Connect() Dim myCmd As New SqlCommand("SELECT COUNT(login_name) FROM [Accounts] WHERE login_name= @login_name", Connection) myCmd.Parameters.Add("@login_name", SqlDbType.NVarChar).Value = Me.TextBox1.Text If myCmd.ExecuteScalar() > 0 Then MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) TextBox1.Clear() TextBox2.Clear() Connection.Close() Return ' выходим из процедуры End If TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) myCmd = New SqlCommand("INSERT INTO Accounts VALUES (@login, @pass, 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null)", Connection) 'запрос может быть неправильным, т.к. не указан список колонок перед VALUES myCmd.Parameters.Add("@login", SqlDbType.NVarChar).Value = Me.TextBox1.Text 'желательно привести параметры к общему знаменателю, а то в первом запросе вместо login используется login_name myCmd.Parameters.Add("@pass", SqlDbType.NVarChar).Value = Me.TextBox3.Text myCmd.ExecuteNonQuery() Connection.Close() MsgBox("Вы зарегестрированны") TextBox1.Clear() TextBox2.Clear() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 32) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 58) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 59) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 60) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 61) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 62) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 63) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 64) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 92) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 93) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 94) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 95) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 96) Then If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then e.Handled = True End If End If If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then e.Handled = False End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 32) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 58) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 59) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 60) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 61) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 62) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 63) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 64) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 92) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 93) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 94) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 95) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 96) Then If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then e.Handled = True End If End If If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then e.Handled = False End If End Sub End Class Вакансии в ITИнженер-программист SCADAРоссия, Москва | Работа в офисе Программист SCADAРоссия, Москва | Работа в офисе Программист FlashРоссия,
Москва | Работа в офисе | 85 000.00 RUB ПрограммистРоссия, Москва | Работа в офисе | 60 000.00 RUB Инженер-программистРоссия, Москва | Работа в офисе | 43 000.00 RUB Инженер-программист (АСУ нефтебазы)Россия, Москва | Работа в офисе Программист C# . NETРоссия, Москва | Работа в офисе | 80 000.00 RUB Программист C++Россия, Москва | Работа в офисе | 40 000.00 RUB Программист C# (2D)Россия, Москва | Работа в офисе | 50 000.00 RUB ВЕБ ДИЗАЙНЕР УДАЛЕННАЯ РАБОТАРоссия, Москва | Работа в офисе Все вакансии в IT · Новости мира ITLenovo выпускает новые Android-планшеты для бизнесаКитайский производитель компьютеров Lenovo сегодня начал продажи своего нового поколения интернет-планшетов ThinkPad, ориентированных на использование в бизнес-сфере. Напомним, что ранее производитель запустил в продажу похожие планшеты IdeaPad K1, предназначенные для индивидуальных пользователей.
Новые планшеты ThinkPad c 10,1-дюймовым экраном работают с операционной системой Android и имеют ряд сервисов, специально предназначенных для бизнес-пользователей. Одной из изюминок бизнес-планшетов является наличие стилуса, при помощи которого пользователи могут записывать те или иные данные, либо просто рисовать и делать пометки, как в блокноте. Для работы с "цифровыми заметками" планшеты оснащены программой Documents to Go. Эта программа совместима с форматами Microsoft Office и позволяет синхронизироваться
с популярным офисным пакетом. Также планшеты поддерживают пакет Citrix Receiver для работы с настольными бизнес-приложениями через систему виртуализации. 25.08.2011 10:32 · Категория: Железо · Источник: CyberSecurity.ru "Апорт" перешел на поиск "Яндекса"Российская поисковая система "Апорт", функционирующая с 1997 года, перешла на поиск "Яндекса". Владеющая поисковиком компания "Вымпелком" заявила, что "Апорт" не является для нее приоритетным бизнесом, поэтому собственную поисковую технологию "Апорта" было решено не развивать. 25.08.2011 10:31 · Категория: Бизнес в IT · Источник: Lenta.ru Стив Джобс покинул пост гендиректора AppleСтив Джобс покинул пост главы Apple. Об этом говорится в официальном заявлении компании. На посту генерального директора Джобса заменит Тим Кук. С 17 января 2011 года основатель Apple находился на больничном по причинам, о которых не сообщалось публично. 25.08.2011 10:30 · Категория: Бизнес в IT · Источник: Lenta.ru AMD выпускает новые процессоры Fusion для бюджетных ноутбуковВторой крупнейший мировой производитель микропроцессоров Advanced Micro Devices вчера представил обновленную линейку чипов Fusion, объединяющих в себе как центральное процессорное ядро x86, так и видеографические ядра. В заявлении AMD говорится, что при помощи новых версий Fusion компьютеры бюджетных ценовых категорий смогут обзавестись функциями, которые прежде присутствовали только в дорогих решениях.
Обновлены были чипы Fusion E- и C-серий. Обе этих серии являются экономичными решениями, у первой TDP составляет 18 ватт, у второй - 9 ватт. Первые позиционируются как решения для бюджетных ноутбуков, вторые - для нетбуков. Более мощные Fusion А-серии получили обновления ранее. 25.08.2011 10:27 · Категория: Железо · Источник: CyberSecurity.ru Samsung представила в России сервис 3D VOD «Explore 3D»Компания Samsung Electronics сегодня представила в России бесплатный сервис 3D VOD «Explore 3D». Сервисы Video on Demand (видео по запросу) позволяют пользователю смотреть в потоковом режиме именно то видео, которое ему нравится, именно тогда, когда этого хочется. В телевизорах Samsung подобные сервисы стали возможными благодаря реализации концепции Smart TV. Владельцу умного телевизора достаточно зайти в меню Smart Hub и выбрать нужное приложение из магазина Samsung Apps. Далее – выбрать фильм и приступить к просмотру.
Сервис Samsung «Explore 3D» призван решить проблему ограниченного количества доступного 3D-контента и позволить пользователям смотреть изображение в трехмерном формате не только через спутниковую тарелку или blu-ray плеер. Приложение предлагает различные фильмы в формате 3D, в том числе трейлеры к кинофильмам всемирно известных студий, музыкальные клипы, фильмы и программы культурно-образовательного содержания. Сейчас в меню сервиса доступно около сорока видео. В дальнейшем количество контента будет
увеличено. 24.08.2011 10:25 · Категория: Бизнес в IT · Источник: CyberSecurity.ru
Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей: Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter. Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты. Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT. |
В избранное | ||