Все выпуски  

RE: Как записать столбец из DataGridView в TextBox?



RE: Как записать столбец из DataGridView в TextBox?
2016-08-12 16:36 i32
 Dim row As DataGridViewRow
        row = Me.DataGridView1.Rows(e.RowIndex)
       TextBox1.Text = row.Cells("id").Value.ToString


RE: Как записать столбец из DataGridView в TextBox?
2016-08-12 18:21 Leha_Noisy
Не совсем понимаю ваш код!

У меня записывается только одно последнее значение! Вот код:
for (int i = 0; i < dataGridView2.Rows.Count; i++)
{
    textBox1.Text = Convert.ToString(dataGridView2.Rows[i].Cells[0].Value); 
}
Как записать весь столбец в Textbox?


RE: Как записать столбец из DataGridView в TextBox?
2016-08-12 18:30 Leha_Noisy
Ответ найден)
http://www.cyberforum.ru/windows-forms/thread1793005.html#post9450259

Png
2016-08-15 14:11 i32
День добрый .

Не понимаю почему не перемещаются файлы png..Вернее они перемещаются но в новой папке их уже не посмотреть .
Как бы файл есть а картинки нет.Перетаскиваю всю дерикторию.
 Directory.Move("D:\WPSystem\apps", "D:\ovb\appss") 'переименовываем и перемещаем
Может надо копировать по отдельности?


Нужен совет по SEO
2016-08-16 17:48 alex.samolen
Ув. жители форума, подскажите актуальную прогу для генерации контекста по ключевым словам, застопорился на продвижке сайта


RE: Как запустить Google Chrome Portable из определённой папки?
2016-08-20 23:12 it249771
А вы бы не могли показать как правильно вписать данное выражение в код, а то, что-то не срабатывает?

RE: Как сделать карусель
2016-08-21 12:35 skameykin22
Так никто тут и не подск3азал.

RE: Как запустить Google Chrome Portable из определённой папки?
2016-08-22 15:59 i32
 Process.Start("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "http://kbyte.ru/ru/Forums/Show.aspx?id=17968")


Почему при открытии браузера Google Chrome открывается браузер без расширений (selenium)?
2016-08-22 18:11 it249771
ИМЕЕТСЯ
Google Chrome Portable (портативный), который расположен в папке
c:\soft\UD\GoogleChromePortable\1_1\GoogleChromePortable_1.exe
На нём установлены расширения: Site Geo IP Locator;
См. скриншот http://prntscr.com/c8vkn5

При запуске ПРОЕКТ 1 на C# (с использованием selenium, WebDriver.dll, chromedriver.exe) открывается браузер Google Chrome Portable, в котором установлено только расширение "Chrome Automation Extension", которое я не устанавливал.
Сценарий проекта:
1. открыть браузер Google Chrome Portable, который находится по пути c:\soft\UD\GoogleChromePortable\1_1\GoogleChromePortable_1.exe;
2. открыть поисковик (google.com);
3. ввести слово для поиска;
4. осуществить поиск;

ВОПРОС
1. Почему когда запускаем ПРОЕКТ 1 на C#, который по сценарию открывает браузер Google Chrome Portable, в браузере установлено только расширение "Chrome Automation Extension", которое я не устанавливал, а установленного расширения нет?
chrome://extensions/
См. скриншот http://prntscr.com/c8r3lm

ПРИЛОЖЕНИЕ.
1. GoogleChromePortable.rar - https://yadi.sk/d/P5YwafKTuPbCq
2. ПРОЕКТ_exe.rar - https://yadi.sk/d/xKhCLA4LuPevA
3. ПРОЕКТ_ПОЛНЫЙ.rar - https://yadi.sk/d/RUOpjj64uPexY
4. Код
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using OpenQA.Selenium;
//****//
using System.Diagnostics;
//****//

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
IWebDriver Browser;

public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
OpenQA.Selenium.Chrome.ChromeOptions co = new OpenQA.Selenium.Chrome.ChromeOptions();
//****//

co.BinaryLocation = @"c:\soft\UD\GoogleChromePortable\1_1\GoogleChromePortable_1.exe";

//****//
Browser = new OpenQA.Selenium.Chrome.ChromeDriver(co);
Browser.Manage().Window.Maximize();
Browser.Navigate().GoToUrl("http://google.com");

IWebElement SearchInput = Browser.FindElement(By.Id("lst-ib"));
SearchInput.SendKeys("проект домов" + OpenQA.Selenium.Keys.Enter);

}

private void button2_Click(object sender, EventArgs e)
{

}
}
}

ДЛЯ ЗАПУСКА ПРОЕКТА ТРЕБУЕТСЯ ВЫПОЛНИТЬ СЛЕДУЮЩЕЕ:
1. ПРИЛОЖЕНИЕ 1 (GoogleChromePortable.rar) разархивировать и разместить на диске "C"
чтобы файлы находились по следующим путям соответственно:
1. Файл GoogleChromePortable_1.exe - находился по пути
c:\soft\UD\GoogleChromePortable\1_1\GoogleChromePortable_1.exe
т.е. папку "soft" просто разместить на диске c:\

Требуется помощник начинающий фрилансер
2016-08-31 04:47 SKlo36
Оплата 30000 руб
Требуются начинающие фрилансеры, можно даже без опыта, все покажем и обучим. Работы много: от набора документов до редактирования договоров. Выплаты каждый день по запросу. Заявки присылать на почту fswjob@gmail.com


RE: Почему при открытии браузера Google Chrome открывается браузер без расширений (selenium)?
2016-08-31 17:40 i32
Наверно батником проще будет с архивом работать.
При условии ВИНРАР -установлен на машине
TextBox1.Text = "chcp 1251" & vbCrLf &
            "@echo off" & vbCrLf &
            "md C:\fold" & vbCrLf &
          "Xcopy """ & TextBox7.Text & """ C:\fold /K /H /G /Q /R /S /Y >nul" & vbCrLf &
           ":end" & vbCrLf &
            "start /min WinRAR.exe u -r -y -ep1 C:\fold\pass.rar C:\fold >nul" & vbCrLf &
            ":end"
        TextBox1.TabStop = False
Создаем папку в C:\fold"
Копируем TextBox7.Text (Полный путь) В папку C:\fold"
Архивируем то что скопировали.
Тебе правда надо наобород все сделать..Я думаю так же только наобород (боюсь ошибиться)
Далее создаем..Бат и запускаем
Dim Path As String = "C:\filename.bat"
        Dim memstream As MemoryStream = New MemoryStream(System.Text.Encoding.GetEncoding(1251).GetBytes(TextBox1.Text))
        Dim data As Byte() = memstream.ToArray()
        Using filestrm As FileStream = New FileStream(Path, FileMode.Create)
            filestrm.Write(data, 0, data.Length)
        End Using
        Shell(Path, AppWinStyle.Hide)
Это что касаемо разархивировать файл и запустить
Удалить потом
Process.Start("CMD", "/c ""del /f /q C:\filename.bat""")
Конвертор на C# здесь где то есть. Если VB>NET не понятно..




RE: Почему при открытии браузера Google Chrome открывается браузер без расширений (selenium)?
2016-08-31 17:49 i32
А в Portable Врятли что то просто установишь..
То же самое и как на виртуалку Линукс или другую операционку
Надо наверно разбирать и руками вставлять свои расширения...


RE: Почему при открытии браузера Google Chrome открывается браузер без расширений (selenium)?
2016-08-31 18:14 i32
Если сюда залить папку с рассширением..
GoogleChromePortable\Data\profile\Default\Extensions


Домены для визиток/портфолио разработчиков
2016-09-02 16:03 Алексей Немиро
Друзья, если у вас или вашей компании есть визитная карточка разработчика в проекте selfie.cards, то вы можете получить бесплатный поддомен для этой карты!

Примеры карт разработчиков:
http://alekseynemiro.developer.cards
http://temamagic.developer.cards
http://dev.kurepin.ru

Получить карту можно тут:
https://selfie.cards/

Домены выдают тут:
http://www.developer.cards/
либо пишите мне на адрес adminkbyte.ru или alekseykbyte.ru

На данный момент можно получить поддомены в двух доменах второго уровня:
* developer.cards
* developer.ru.net

Помимо этого можно получить почтовый ящик в этих доменах. Почта от Яндекс.

Карты можно использовать для продвижения себя и своих проектов.
Использовать в качестве формы обратной связи.
Для поиска работы и предложений.
Приема денег у населения :)
И просто для представления суммарной информации о своей персоне, компании и/или отдельном продукте (например, http://adminstock.net).

По заверению авторов, в будущем планируется создание каталога разработчиков.

Win 8.1
2016-09-04 00:09 i32
Привет всем .
Я так понял в w 8.1 netsh списки wi fi больше не выдает.?.
Кроме как профиля пользователя..
 Dim proc As New Process()
        proc.StartInfo.FileName = "c:\windows\system32\netsh.exe"
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.Arguments = "wlan show profiles"
        proc.StartInfo.StandardOutputEncoding = Encoding.GetEncoding(866)
       '437 (US)
       '720 (Arabic)
       '737 (Greek)
       '775 (Baltic)
        proc.Start()
        tempstr = proc.StandardOutput.ReadToEnd()
        Dim parts As String() = tempstr.Split(New Char() {":"c})
        TextBox3.Text = parts(2) & vbCrLf & parts(3)
        proc.WaitForExit()
        proc.Close()
Можно использовать Длл NativeWifi от nuget
  list.Clear()
        DataGridView1.DataSource = False
        On Error Resume Next' не знаю почему без него ошибку выдает
 Dim wlanClient = New WlanClient()
        For Each wlanInterface As WlanClient.WlanInterface In wlanClient.Interfaces
            For Each wlanBssEntry As Wlan.WlanBssEntry In wlanInterface.GetNetworkBssList()
                Dim ssid As Wlan.Dot11Ssid = wlanBssEntry.dot11Ssid
                Dim networkName As String = Encoding.ASCII.GetString(ssid.SSID, 0, CType(ssid.SSIDLength, Integer))
                Dim rss As Integer = wlanBssEntry.rssi
                Dim Q As String = wlanBssEntry.linkQuality.ToString + "%"
                Dim H As String = wlanBssEntry.chCenterFrequency.ToString
   Dim macAddr As Byte() = wlanBssEntry.dot11Bssid
                Dim sb As New StringBuilder("")
                Dim adMAC = ""
                Dim macAddrLen = CUInt(macAddr.Length)
                Dim str = New String(CInt(macAddrLen) - 1) {}
                For i As Integer = 0 To macAddrLen - 1
                    str(i) = macAddr(i).ToString("x2")
                    adMAC = String.Join(":", str)
                Next
                Dim networks() As Wlan.WlanAvailableNetwork = wlanInterface.GetAvailableNetworkList(1)
                For Each network As Wlan.WlanAvailableNetwork In networks
                    Secryr = network.dot11DefaultCipherAlgorithm.ToString()
                Next
                If Secryr = "CCMP" Then
                    Secryr = "WPA2"
                ElseIf Secryr = "TKIP" Then
                    Secryr = "WPA"
                End If
              list.Add(New Test(adMAC, networkName, rss.ToString, Q, H, Secryr))
           Next
        Next
        DataGridView1.DataSource = list

Все конечно работает .Но NativeWifi на phone не поставишь .Как быть...??
На win 10 вроде что то есть.. А что с 8.1 ..??

В избранное